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139 1.0 ABSTRACT 
151 THIS PROGRAM PERFORMS PART 2 OF THE RK611/RKOG SUBSYSTEM VERIFICATION 
1 TESTS, WHICH PROVIDE A FUNCTIONAL SHAKEDOWN OF THE ENTIRE SUSSYSTEM 
l INCLUDING UNTBUS INTERFACE AND access TO MAIN MEMORY. THE TESTING 
is4 I OYS WORST-CASE oeenun IONS INVOLVING HEAD OFFSETTING 
155 MORY SSING AND DATA TRANSFER. UNIBUS CYCLE ION 
l MULTIPLE DRIVE OPERATIONS. ACDITIONALLY, AN RKO HEAD ALIGNMENT AID 
187 IS PROVIDED TO FACILITATE ON-LINE ALIGNMENT OF DRIVE HEADS. 

159 WITHIN THE VARIOUS SUBSYSTEM TESTS, EMPHASIS IS GIVEN TO USEFUL SCOPE 
160 LOOPS AND TOR SPECIFICATION OF TEST PARAMETER VALUES. AT THE 
161 | SEGINNNG OF TESTING, THE FOLLOWING OPTIONS MAY BE SPECIFIED BY THE 
163 F 
164 RK611 REGISTER ADDRESS 
16S RKO& VECTOR ADDRESS ‘ 
166 RKOS PRIORITY LEVEL 
167 DRIVE (S)_ TO BE TESTED 
NUMBER OF $B ITERATIONS 
INITIAL DISK. SS ON TRANSFERS 
DATA PATTERNS USED 
STALL TIME BETWEEN OPERATIONS 
IN ADDITION, STANDARD SWITCH REGISTER OPTIONS ARE PROVIDED, FOR A 
VARIETY OF PROGRAM LOOPING, RUNNING, AND REPORTING MODES. 
ERRORS WILL BE THEY OCCUR. THE REPORT WILL INCLUDE A TEST 


REPORTED AS 
SCRIPTION, CURRENT AND PREVIOUS OPERATIONS, GOOD AND BAD 
APPLICABLE DEVICE REGISTER CONTENTS. 


2.0 HARDWARE REQUIREMENTS 


~-e3%, 


2.1 REQUIREMENTS FOR SUBSYSTEM TESTS 


THE FOL OY NG HARDWARE IS REQUIRED TO RUN PART 2 OF THE SUBSYSTEM 
VERIFICATION TESTS: K 


POP- 11704 (05,10 MFG. ONLY),20,34,35,40,45,50,70 OR PDQ 


bE UNIBUS CON ER (RK611) 


1 TO 8 RKO& DRIVES 
1 TO 8 RKO& DISK CARTRIDGES (FORMATTED IN 20 OR 22 SECTOR FORMAT) 


SRSESRALSS LOSS TRRE SOE Bo otal Sonacos 


2.2 REQUIREMENTS FOR HEAD ALIGNMENT AID 
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moe FIELD TEST os (OR ALIGNMENT SECTION THEREOF) 


PROG HEAD ALIGNHENT TOOL 


3.0 PRELIMINARY PROGRAM REQUIREMENTS 


CONTROLLER Dtaawosi Yc eee hes Hoe Bas AY ke? 


DZR6J) SHOULD FIRST BE RUN, 
EeOLve Basie. SOLD TNAREWARE FB 
4.0 GENERAL PROGRAM CONSIDERATIONS 


4.1 SYSMAC 


te Coonan USES PORTIONS OF THE SYSMAC DIAGNOSTIC SYSTEM MACRO 


4.2 XXDP 


THIS PROGRAM MAY BE LOADED UNDER XXDP. SUBS‘STEM TESTS 1-6 MAY BE RUN 
saan OR DUMP MODE, BUT THE ALIGNMENT AID MAY ONLY BE RUN IN DUMP 


4.2.1 CHAIN MODE 
ne ao Oe gestae? MA et ta , THE DEFAULT re un WHEN CHAINED 


YPASSED, AND RKO& UNIBUS ADDRESS 

eo TERRY Wecton AR Paces 0° STANDARD VALUES. ALL DRIVES 

SENT AND REABY WILL RITH THe EXCEPTION OF DRIVE OG, IF THE 
RKO& CONTAINS THE XXOP ME 





WITH 





OR WITHOUT 
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4.3 ACT/APT 
THE PROGRAM IS COMPATIBLE WITH ACT/APT CONVENTIONS. SUBSYSTEM TESTS 


1-6 MAY BE RUN IN AUTOMAT . OR DUMP MODE, AND THE HEAD ALIGNMENT AID 
MAY ONLY BE RUN IN DUMP MO 


4.3.1 AUTOMATIC MODE 
THE PROGRAM PROVIDES FOR AUTOMATIC APT/ACT OPERATION. IN THIS MODE 


PARAMETERS pevent TO DEFAULT VALUES, AND ALL DRIVES WHICH ARE PRESENT 
AND READY ARE TESTED. 


4.3.2 DUMP MODE 


IN DUMP MODE, PARAMETERS MAY BE INPUT, OR 
TESTS 1-6 OR HEAD ALIGNMENT AID MAY BE RUN. 


DEFAULTED, AND SUBSYSTEM 
4.3.3 APT ETABLE DEFINITIONS 


THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT ENVIRONMENTAL 
TABLE (ETABLE) ENTRIES, VIA THE APT UTILITY PROGRAM “APPLU” : 


1. SOFTWARE ENVIRONMENT 
=1 IF APT SCRIPT MODE 
=0 IF STANDALONE MODE 
2. ovine MODE BYTE 
BIT 7=1 ETABLE DOES SIZING 
PROGRAM DOES SIZING 


=0 
BIT & s , Bonet Sige ta Ber IF SCRIPT MODE 
ALLOW CONSOLE OUTPUT 


BIT 5 = PR 
BITS 4-0 NOT USED 


ie EW IRONENT Ro RODE eT" 7. (S121 zine BIT) Is ) 1S SET ne 1, THE SOF TWARE 


WARE CONSOLE 
at REGIS oe Tee EPONE. S USED, ALL BITS 
sul ne th . ene 5 oF REGISTER OPTIONS) MAY USED WHEN 


RUNNING 
ue a4 | sont ANODE. ONFOUEVER, BIT 14 (LOOP ON TEST) MUST ALWAYS BE 





4. SWITCH 2 (USER SWITCH REGISTER) 
NOT USED 
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6. INTERRUPT VECTOR 1 
USED WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = 210 


7. BUS PRIORITY 1 
USED WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = 5 


8. INTERRUPT VECTOR 2 
NOT USED 

9. BUS PRIORITY 2 
NOT USED 


10. BASE ADDRESS 
USED WHEN ENVIRONMENT MODE BIT 7 


~ 1. DEVICE MAP 
USED WHEN SNARE MODE BIT 7 = EACH BIT SET T0 1 IN BITS 
O-7 WILL SELECT THE CORRESPONDING “DRIVE TO BE TESTED. 
BITS 8-15 ARE NOT USED. 


1. DEFAULT = 177440 


4.4 DUAL-ACCESS 


THIS PROGRAM DOES NOT UTILIZE ig eee oF FOR THE ro OF ALL 
TESTS te . 7. THE HEAD ALIGNMENT AID (SECTION 1 THE OPERATOR 
T THERE IS NO INTERFERENCE FROM THE ‘UNUSED PORT. _IF 
FAILURES ‘ ENCOUNTERED IN TES 3! 1-6 DUE TO INTERFERENCE FROM THE 
A PORT, Le apenas IS ADVISED TO SWITCH THAT PORT OFF-LINE AND 


4.5 MEMORY MANAGEMENT 


5 ROS a OPO, ORS THC RG 
fed ns feress, alt” OF MEMORY ABOVE PROGRAM IS 
DURAT ION. F THESE 3 TESTS, MEMORY” MANAGEMENT IS 


THE 
ENSGLEDS "IN eer THER TESTS BND DURING THE USE’OF THE HEAD ALIGNMENT 
- RID, MEMORY NT IS DISABLED. 


4.6 MEMORY PARITY CHECK 
a os ta PARITY CHECK orion IS AVAILABLE ON THE SYSTEM, ALL 
WITH PARITY CHECK 


NABLED. PARITY ERRORS ARE 
REPORTED PD eet IS ABORTED UNLESS THE BYTE LABELED MEMABT WAS 
PREVIOUSLY LOADED WITH A NON-ZERO VA 









 DZREN-B = RK61i/RKO& SUBSYSTEM VERIFICATION : PART 2 
DZRENB. CMB 


- MACYL1 27(732) 


373 4.7 BAD SECTORS 


O3-NOV-75 21:43 PACE i2 








OZREN-B = RKG11/RKOG SUBSYSTEM VERIFICATION : PART 2 MACYI1 27(732) O3-NOV-76 21:43 PAGE i3 
DZRENB. CMB 


374 
3 


<= 
-— 
<£ 


PAGE 8 


BE ORD ING TO A CONTR auicy OPTION (SEE SECTION 8.2.4.2 ) THE B 
SECTOR LE on TO GE TESTE tb 18 a PED AT THE CONSOLE ee 
TQ TESTING, AL ALL BATA ERRORS OCCURRING IN TH PROGRAM ARE MASKED OUT 
dene). °° ON SECTORS DESIGNATE AD, (BY EITHER FACTORY OR 


4.8 EXECUTION TIME 


EXECUTION TIME fs DEPENDENT UPON PARAMETERS Iwul BY THE OPERATOR 
SUCH AS_ STALL TIME OR ITERATION COUNT), AND TO A GREAT DEGREE, UPON 
THE AMOUNT OF RENORY. HOWEVER, THE “AVERAGE TIME” woe TO fun 

QUICK VERIFICATION (FIRST PASS) IS 2 MINUTES (FOR A EYK SYSTEM) 

ter k tee eeteny PARAMETERS DEFAULTED REQUIRES 3 MINUTES PER baIve 


5.0 PROGRAM LOADING 


THE PROGRAM CAN BE LOADED FROM ove TAPE USING THE ABSOLUTE LOADER OR 
FROM ANY MEDIA SUPPORTED BY XXDP ; 


6.0 STARTING PROCEDURE 


6.1 STARTING ADDRESSES 
200 NORMAL STARTING ADDRESS OF TESTS 1-6 (PARAMETERS DEFAULTED) 
204 SELECT OPERATING PARAMETERS, RKO& UNIBUS ADDR. AND INTERRUPT 
VECTOR FOR TESTS 1-6 
224 HEAD ALIGNMENT AID START ADDRESS 
NOTE 


HEAD ALIGNMENT AID OPERATING 
TQ_ SECT ll. 


H 
APPLY ONLY TO THE SUBSYSTEM TESTS (1-6). 


6.2 SWITCH REGISTER OPTIONS USED 


THIS PROGRAM IS DESIGNED TO ALLOW THE USE OF THE HARDWARE SWITCH 
REGISTER IF PRESENT, OR THE SYSMA C- SUPPORTED SOFTWARE SWITCH REGISTER 
(IF HARDWARE SWR IS NOT PRESENT OR IS SET L IN EIT 

CASE, THE FOLLOWING OPTIONS ARE IMPLEMENTED WHEN THE APPROPRIATE Bits 
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BIT OPTION 


HALT ON ERROR 

LOOP ON TES 

INHIBIT ERROR RTS 

REPORT De octet ay ONLY, CN ERRORS 
ee ITERATIONS 


LOOP ON 

APPLY RANDOM STALL BETWEEN OPERATIONS 
REPORT ONE ERROR eet os testes IN TESTS 2-4 
INHISIT WRITES I 
REPORT ALL SOFTWARE ZUNPARE ERRORS IN TESTS 2-4. 


BOR SOs 20 
—-TOWO-Mw sul 


NOTE 


ONAL PROGRAM CONTROL OPTIONS 
IETIGN OF CONTROL SWITCH WORD 


7.0 OPERATOR ACTION 


LORD PROGRAM INTO MEMORY (SEE SECTION 5.0) 
LOAD A FORMATTED PACK ON EACH DRIVE TO BE TESTED. 
pra DRIVE (S) TO ONLINE STATE, WRITE ENABLED, AND LOCKED ON 


LOAD THE DESIRED STARTING ADDRESS (SEE SECTION 6.1) 
SET SWITCHES IF DESIRED (SEE SECTION 6.2) 
PRESS START OR GIVE APPROPRIATE MONITOR START COMMAND. 


rrr Pe 


8.0 PROGRAM ACTION 


8.1 DESCRIPTION OF OPERATING PARAMETERS 
AFTER THE een IS STARTED, IT TYPES 11S IDENTIFICATION AS POLLONS: 
T FOLLOWED 


~DZREN-B- RK11/RKO6 SUBSYSTEM VERIFICATION: PAR 
“LAST PHYS fen ADRS=XXXXXXXK". THEN, E THE TES s’ BEGIN EXECUTION 
OPERA E act IVE MODE IS ENTERED 


WITH DEFAULT TERS, OR AN OR INTER 

(SEE STARTING SSES, SECTION 6.1). IN THIS MODE SPERATING 
PARAMETERS MAY BE LISTED OR ALTERED BY VARIOUS MEANS. ALL PARAMETERS 
ARE TREATED AS OCTAL NUMBERS, AND THE PARAMETER LIST 1S SHARED AMONG 
THE FOLLOWING IS THE LIST OF OPERATING PARAMETERS, (WHICH APPLY TO THE 
CURRENT SELECTION OF DRIVES AND TESTS). AFTER EACH, IS INDICATED THE 
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ALID RANGE OF VALUES FOR THAT PARAMETER (IN OCTAL), AND ITS DEFAULT 


VELLE. 


ALL PARAMETERS GRE ENTERED AS OCTAL NUMBERS; AND THE PARAMETER 


(tte tee - 
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41 
: MNEMONICS SHOWN ARE THOSE USED BY THE PROGRAM. 
; 48 FC FIRST CYLINDER ADDRESS IN TESTS WHICH ARE DCNE OVER A 
4% RANGE OF CYLINDERS, FC=0-631, DEFAULT=0 
497 LC LAST CYLINDER ADDRESS IN TESTS WHICH ARE DONE OVER A 
433 ; RANGE OF CYLINDERS, LC=0-632, DEFAULT=632 
FT FIRST TRACK ADDRESS IN TESTS WHICH ARE DONE OVER A 
eo RANGE OF TRACKS, 7AM" AULT=0 
593 LT LAST TRACK ADDRESS IN TESTS WHICH ARE DONE OVER A RANGE 
B03 OF TRACKS, LT=0-2, DEFAULT=2 
506 So FIRST SECTOR ADDRESS IN TESTS WHICH ARE DONE OVER A 
| €o RANGE OF SECTORS USED ON ANY ORIVE WHICH HAS A 
358 20-SECTOR FORMAT CARTRIDGE. SO=0-23, DEFAULT=0. 
510 Sl LAST SECTOR ADDRESS IN TESTS WHICH ARE DONE OVER A 
513 RANGE OF SECTORS USED ON ANY DRIVE WHICH HAS A 
ele 20-SECTOR FORMAT CARTRIDGE. S1=0-23, OEFAULT=23. 
fle Se FIRST SECTOR ADDRESS IN TESTS WHICH. ARE DONE OVER A 
| Bis RANGE T ANY. DRIVE WHICH HAS A 
| Sie 22-SECTOR FORMATTED CARTRIDGE, S2=0-25, DEFAULT=0. 
/ §1g8 $3 LAST SECTOR ADDRESS IN TESTS WHICH ARE DONE OVER A 
| 518 RANGE OF SECTORS, USED ON ANY DRIVE WHICH HAS A 
| 20 22-SECTOR FORMATTED CARTRIDGE. S3=0-25, DEFAULT = 25. 
| 822 PT DATA PATTERN SELECT WORD (SEE SECTION 8.2.4.1 FOR 
bes DETAILS) PT=0-177777, DEFAULT=0 
| Bes CS Ss CONTROL SWITCH WORD (SEE SECTION 8.22 FOR DETAILS) 
| . €§0-000062, DEFAULT=0 
_  §3e ST NUMBER OF UNIT STALL TIMES WITH WHICH TO STALL (DELAY) 
| Bee BETWEEN RKO& COMMANDS 
#8 
P33 8.2 SELECTION OF OPERATING PARAMETERS (ADDRESS 204 START) 
/ §3 j 
536 
| 27 8.2.1 DRIVE SELECTION 
i i PFVYER AN ADDRESS 204 START, THE PROGRAM INDICATES INPUT MODE BY TYPING 
540 “PARAMETER INPUT MODE”. THEN, THE RK611 REGISTER ADDRESS, RKO6 VECTOR 
eH BODRESS AND RKO& PRIORITY ARE’ OPENED FOR POSSIBLE MODIFICATION AS 


RKO6 BUS ADR = 177440 NEW=(TYPE NEW VALUE HERE) 
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NEXT THE PROGRAM TYPES THE NUMBER(S) OF THE CURRENT DRIVES UNDER TEST 
Eanetee BY A (*) ON THE NEXT LINE TO REGUEST NEW DRIVE NUMBERS. FOR 


PARAMETER INPUT MODE 


DRIVE(S}=0 41 
=O By’ ” G0ES HERE) 


THE ena mrs THE NE NUNBERS (SEPARATED BY COMA) optus <CR> oF 
FLEE ‘DR SAE THEN VEued FOR aL 1b sratl ey THE PROGRAM oe 
T ORE ARE ACCEPTABLE WILL NOW BE LISTED AS BEFORE. 


OPERATOR MAY MANUALLY PRECONFIGURE THe DRIVES AND TYPE IN NEW DRIVE 
NUMBERS, AND OP ica BE CHECKED AND TYPED, UNTIL THE OPERATOR 


ON INITIAL ENTRY FROM ADDRESS THE DRIVES WHICH ARE LISTED ARE ALL 
THOSE ON THE SUBSYSTEM WHICH AR ae a Y, WRITE-ENABLED, AND 
A OGE OTHER THAN AN NAL IENT Patk. (THIS IS’ THE 
AULT DRIVE SELEC FOR ADDRESS START). ON ALL OTHER ENTRIES 
0 THE DRIVE SELECTION ROUTINE (VIA <?C> AS DESCRIBED IN SECTIONS 
-S AND 8.2.3.6) THE PROGRAM FIRST TYPES : 


5 
TO TEST ALL DRIVES er “A” <CR>, ELSE <CR> 
* (CHARACTER GOES HERE) 


NEXT, THE DRIVES ARE LISTED AS SHOWN ABOVE. _IF .(A) IS TYPED, ALL 
VAILABLE DRIVES WILL BE LISTED,- AND IF NOT, THE PREVIOUS SELECTION OF 
DRIVES WILL BE LISTED. 


8.2.2 TEST SELECTION 
WHEN THE OPERATOR FINALLY TYPES JUST <CR> IN RESPONSE TO THE DRIVE 
REQUEST, THE PROGRAM ENTERS THE TEST INPUT ROUTINE. THE FOLLOWING 
INSTRUCTIVE LINES ARE TYPED : 

L = LIST TESTS 

C = CHAN GE TEST 
I = INPU TERS AND RUN TESTS 
THEN, THE FOLLOWING REQUEST IS MADE : 


ENTER L 
(ERARAGTER® GES HERE) 


THE OPERATOR TYPES THE DESIRED CHARACTER PLUS <CR>. 


8.2.2.1 LIST TESTS, ‘L) 
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£04 IF (L) IS TYPED, THE PROGRAM TYPES THE CURRENT DESIRED TEST LIST, AS 


Scares 
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FOLLOWS : 
TEST ITERATIONS 
1777 
400 
4 es 
ETC. 
THE ITERATION NUMBER IS_THE NUMBER of [ites THE TEST WILL BE RUN_ ON 
THIS PASS, AND IT MUST BE BETWEEN O 177777. IF IT IS ZERO, THAT 


Test WILL MOT BE RUN. ON THE FIRST The TROUGH, ALL TESTS ARE LISTED 
TH DEFAULT ITERATIONS (YET TO BE DETERMINED) 


EN THE LIST IS COMPLETED, THE PROGRAM RETURNS TO TYPE : “ENTER L,C, 


8.2.2.2 CHANGE TESTS, (C) 


IF (C) IS TYPED, THE PROGRAM THEN ASKS: “TO DEFAULT TESTS TYPE D<CR> 
ELSE <CR> tf JUST <CR> IS TYPED, THE PROGRAM SEQUENTIALLY OPE ENS 
EACH TEST FOR POSSIBLE ALTERATION OF THE ITERATION NUMBER. EACH 

IS OPENED AND A NEW LINE IS TYPED, GIVING THE TEST NO. AND ITER. Vt 
IN OCTAL, FOLLOWED BY (#) ON THE SAME LINE. FOR EXAMPLE : 

TEST ITERATIONS 

O * (INPUT, IF ANY, GOES HERE) 


THE OPERATOR THEN TYPES THE NEW VAL PLUS CR? OR JUST <CR> TO LEAVE 
IT UNCHANGED. IF THE OPERATOR NUMBER FOLLOWED BY 
(EXCLAMATION POINT), THE NUMBER JUST ENT PRED WILL BE LOADED INTO fie 
ITERATION TABLE FOR ALL REMAINING TESTS. AFTER ALL TESTS HAVE BEEN 
NED, THE PROGRAM RETURNS TO TYPE : “ENTER L,C, OR I” AGAIN. 


s 


8.2.2.3 INPUT PARAMETERS AND RUN TESTS, (I) » 
if (1) IS TYPED PROGRAM ENTERS THE PARAMETER LIST ALTERATION 


OUTINE DESCRIBED T IN SECTION 8.2.3, IN WHICH OPERATING PARAMETERS MA 
BE INPUT, AND TESTING BEGUN. 


8.2.2.4 CONTROL Z (t2) FUNCTION 


IF THE OPERATOR WISHES TO EXIT AT ANY TIME FROM L OR C AND 
RETURN TO SELECT A NEW MODE (L,C, OR I), CONTROL Z (tZ) MAY BE POE vpeD 
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IF THE OPERATOR WISHES TO TERMINATE L,C, OR I MODE, AND RETURN TO 
REQUEST NEW DRIVES AND TESTS, CONTROL’C’(tC) MAY BE TYPED. 


€.2.3 PARAMETER LIST ALTERATION 
THE PROGRAM NEXT TYPES THE FOLLOWING INSTRUCTIVE LINES: 


T = TYPE LIST 

0 = OPEN LIST 

S = SE INOTVIDUAL PARAM. 
R = RUN TEST Sor 

ENTER 1.0.5 

% (CHARACTER gee HERE) 


THE OPERATOR TYPES THE DESIRED CHARACTER PLUS <CR>. 


8.2.3.1 TYPE LIST, (T) 
IF (T) IS TYPED, THE PROGRAM TYPES THE CURRENT PARAMETER LIST, AS 
FOLLOWS: 


FC = XXXXXX 
Les XXXXXX 


WHEN THE LIST IS COMPLETED, THE PROGRAM RETURNS TO TYPE “ENTER T,0,S, 
OR R” AGAIN. 


8.2.3.2 OPEN LIST, (0) 


IF (0) IS TYPED THE PROGRAM THEN ASKS: “TO DEFAULT ALL PARAMETERS 
TYPE O<CR, ELSE <CR>". IF JUST <CR> IS TYPED, PROGRAM 
SEQUENTIALLY OPENS EACH OPERATING PARAMETER IN THE LIST FOR ALTERATION 
(IN T SHOWN IN SECTION 8.1). EACH PARAMETER IS OPENED AND A 
NEW LINE IS TYPED GIVING THE PARAMETER AND ITS CURRENT VALUE (IN 
OCTAL), FOLLOWED BY (#) ON THE SAME LINE. FOR EXAMPLE: 


IC=3 * (INPUT, IF ANY, GOES HERE) 


THE pret OR THEN TYPES THE NEW VALUE PLUS A <CR> OR JUST <CR> TO 
LEAVE THAT PARAMETER UNCHANGED. AFTER ALL PARAMETERS HAVE BEEN OPENED 


FOR ALTERATION, THE PROGRAM RETURNS TO TYPE “ENTER T,0,S, OR R” AGAIN. 


8.2.3.3 SET INDIVIDUAL PARAMETER, (S) * 
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18 IF _(S) IS TYPED, THE PROGRAM TYPES THE PROMPTER (>) ON THE NEXT LINE 
19 AND WAITS FOR’ THE OPERATOR TO SET THE VALUE OF ANY INDIVIDUAL 
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PARAMETER: 
ENTER T,0,S, ORR 
) * CENTER PARAMETER AND VALUE HERE) 


ps | OPERATOR TYPES THE PARAMETER AND ITS NEW VALUE FOLLOWED BY <CR> 
AND THE PROGRAM GIVES THE PROMPTER (>) AGAIN AS IN THE FOLLOWING 


PLE: 


by TERMINATE INDIVIDUAL SETTING MODE, THE OPERATOR TYPES CONTROL Z 
(#2), AND THE PROGRAM RETURNS TO TYPE "ENTER T,0, S, OR R” AGAIN. 


8.2.3.4 RUN TESTS, (R) 


IF THE OPERATOR TYPES (R), EXECUTION OF TESTS BEGINS, USING ALL THE 
CURRENT PARAMETERS. 


8.2.3.5 CONTROL Z (tZ) FUNCTION 
IF THE OPERATOR WISHES TO EXIT AT ANY TIME FROM T OR_ R_ MODE 


(RUNNING TESTS), AND RETURN TO SELECT A NEW Ste” tT,0,S, OR R), 
CONTROL 2 (42) MAY BE TYPED. 


8.2.3.6 CONTROL C (tC) FUNCTION 
IF _THE OPERATOR WISHES TO TERRINATS T, 0 a pep MODE, OR STOP TEST 


EXECUTION asf R MODE) CONTROL C (tC) MAY BE T ND THE PROGRAM WILL 
RETUR T NEW DR SELECT TON (SEE < EETION 2.1). CON 
ni] OUP FALL LT pr reTYBING_ CONTROL C CAUSES THE PROGRAM TO WALT 


ADDRESS. ° 80 
AFTER COMPLETING ANY DATA’ TRANSF 
8.2.4 SPECIAL PARAMETER SPECIFICATIONS 


8.2.4.1 PT-DATA PATTERN SELECT WORD 


THE OPERATOR SPECIFIES A WORD OF SIXTEEN BITS (6 OCT. OD 
SELECT UP TO ALL SIXTEEN OF THE PATTERNS, LISTED IN SEC 


IGITS) 
TION 9. 
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776 THE NO. OF ANY BIT SET_IN PT CORRESPONDS TO THE NO. 
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OF A PATTERN 


77? CHOSEN. IF THE HIGH BIT OF PT (SIT 15) IS SET, THE USER WILL BE ASKED 
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780 - 
781 re TO TYPE UP TO SIXTEEN DATA WORDS WHICH WILL BE LOADED INTO THE BUFFER 
88 FOR PATTERN 1S. THE PROGRAM TYPES: 
283 “SELECT USER DEFINED PATTERN 1S” 
785 NEXT, EACH OF UP TO 16 WORDS ARE REQUESTED BY THE PROGRAM IN THE SAME 
787 MANNER IN WHICH THE OPERATING PARAMETERS ARE OPENED FOR ALTERATION 
288 (SEE SECT. 6.2.3.2): 
736 WORD O = (OLD VALUE) * (NEW VALUE GOES HERE) 
3h WORD 1 = (OLD VALUE) * (NEW VALUE GOES HERE) 
793 
734 FOR EACH WORD, THE USER TYPES THe NEW VALUE PLUS <CR>, OR JUST <CR>, 
? (TO LEBVE IT UNCHANGED) . TO INPUT LESS THAN 1 WORDS FOR PATTERN 1S’ 

| = - 706 THE OPERATO R MAY TYPE (#) (EXCLAMATION BOINT) BD PROGRAM WILL 
797 FILL THE REST OF THE PATTERN 15 BUFFER WET THE LAST WORD 
798 SPECIFIED, NEXT, THE PROGRAM WILL CONTINUE, IN THE PROPER PARAMETER 
oe INPUT MODE (0 OR’S). 
201 

| 898 

| acs 8.2.4.2 CS- CONTROL SWITCH WORD 

£05 IN ADDITION To THE OPTIONS PROVIDED BY THE SWITCH REGISTER (HARDWARE 

| 80 , 0 NTROL SWITCH WORD (CS) MAY BE SPECIFIED AMONG THE 

gb? “ OPERATING PARAMETERS TO PROVIDE THE FOLLOWING OPTIONS: 

| B03 “ BIT OPTION 

| «BL ‘ 

| ble OS DROP DRIVE IF 20 (DEC) ERRORS EXCEEDED 

| B13 04 TYPE BAD SECTOR FILES (BSF’S) ON FIRST PASS) 

| ei O01 INHIBIT OFFSET REPORTS IN TEST 1 

/ BIB, 9 

B17 = NOTE 

| £19 OTHER BITS UNUSED 

821 

| 822 

i 823 

624 

| 525 

| Be 8.3 DATA PATTERNS 

gee THIS $ SECTION N DESCRIBES THE D DATA PATTERNS AVAILABLE FOR USE IN THE 

TESTS ACH IS COMPRISED OF 16 WORDS. yPATTE ERNS ARE 

| 830 REPEATED Ee NECESSARY TO OBTAIN THE DESIRED WORD COUN rhe 
3) DATA COMMANDS. THE MAXIMUM ALLOWABLE WORD COUNT Is DETENMINED ey. 

AMOUNT OF AVAILABLE BUFFER SPACE AT THE END OF THE PROGRAM, AND 
| B33 BE AS LARGE AS 65,536 (DEC) WORDS. DATA OPIRALING AND TRACK SUITCHING 
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83° 
838 THE FOLLOWING IS THE LIST OF 16 SELECTABLE DATA PATTERNS ‘IN OCTAL), 
838 ITH NOTABLE FEATURES DESCRISED: 
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41 
545 0 1 2 
344 maxTMUM 
S45 GH-LOW HIGH FREQUENCY LOM FREQUENCY  PRECOMPENGATION 
| BE FREQUENCY MIX PHASE MIX PHASE MIX PHASE MIX 
848 
549 gooo00 os2ses 133333 
850 177777 9g0000 Qsse05 OBebE5 
81 177777 ococed 1sssss 
ges 952525 177977 1e5566 
55 Q5cea6 177 135250 
gq Qece56 177 44443 
EEE 133797 900500 
3 1 15555 
ge? 052525 177777 125253 1ee556 
eg 335359 bana sE3E3e 133333 
569 652525 177777 135263 33333 
B61 177 00000 3 
BE2 17735 177777 125252 133333 
863 172765 000000 os2625 133333 
| Bee 17376 177777 125252 3 
| Bes 
| 866 
| ge? y 5 6 
| Bee ROTATING ROTATING ALL ALL 
| Beg BOUNDARY PULSE CELL PULSE ZEROS ONES 
| Be SO ORPENSATION  PRECONPENSATION 
| 672 
B73 121105 026455 oooo00 177777 
B74 150442 ll 000000 177777 
| B75 064221 045513 900090 
| Be 132110 122645 900000 177777 
| 79 o55044 151322 g00000 177777 
| BB O26422 064551 900000 177777 
| 678 013211 132264 oo0000 177777 
«B80 105504 055132 ooco0a 29777 
| BBI O42E42 O26455 ooco00 177777 
B82 021321 goo000 
oe) 110550 000000 177777 
B84 044264 g00000 177777 
«BBS 022132 g00000 177777 
«BBE 011055 o0c000 
| BE? 104436 177977 
| BBB o42213 
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9 10 1 
BE! Dit SHIETED O ALTERNATING ALTERNATING 
IN ETELD O-1 1-0 


agacnanes @ 


fe 5 000001 177776 5 leS2S2 

93 ‘ oo0c02 17 052525 125252 
Ne 000004 17777 163636 

soi 000010 17776 12 

Sae ? oS2525 125252 

903 000040 177737 052525 eoE59 

gcy 000100 77677 052525 125252 

gos 000200 177577 052525 125252 

906 000400 177377 052525 25252 

$97 Fis) 001000 176777 S 125252 

$8 175777 125252 

$09 C04000 173777 052525 125252 

$10 010000 187777 25252 

Sil Oe 157777 052525 125252 

Si2 040000 137777 Fl 

313 077777 052525 125252 

gis se sph 

316 | SCORE | 14 4s 

317 SHIFTING - COMPOSITE PSEUDO- USER- 

a8 0°S AND 1°S ROTATING RANDOM DEFINED 

$20 000001 07230 

921 000003 135143 

Ses 000007 156461 

= nse 

3c pppass 

See 000177 016723 

927 “ 000377 107351 

928 000777 i 4 

Feb] 001777 16 

$30 003777 0307 

931 007777 114356 

932 017777 046167 

$33 0 12307 

934 0 15145 

335 177777 164616 
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9.0 DESCRIPTION OF TESTS 


9.1 TEST 1 - OFFSET-TO-FAILURE MEASUREMENT 
IN THIS TEST A REPEATED PATTERN 072307(0CT) IS WRITTEN INTO ALL WORDS 
OF SECTORS FS AND LS ON TRACKS O-2 OF NDERS FC AND LC. THE SAME 
SECTORS ON ADJACENT CYLINDERS THEN WRITTEN WITH 167230(0CT) (TO 
ESTABLISH A KNOWN PATTERN), BUT THEY ARE NOT TESTED. THEN, EACH 
DES! SECTOR IS WRITE ERE CKED WITH INCREASING POSITIVE OFFSETS 
UNTIL EITHER A “DATA TYPE™ ERROR OCCURS, OR THE FULL RANGE OF POSITIVE 
HAVE BEEN APPLIED. THEN, THE SAME SECTOR IS WRITE CHECKED 
TH UNCRERSING NEGATIVE _ HEAD wie, fee UNTIL FAILURE OR eX TMU 

YARETTER, AE ee ore peer: VSECTORS Fs an C5 08 
CYLI FC AND LC’FOR TRACK of OT OEN Por TRACK FINALLY FOR 
TRACK 2. THE OFFSET-TO-FAILURE RESULTS tecpoR ORTED IN ORDER OF 
INCREASING TRACKS, AS FOLLOWS: 


OFFSET-TO-FAILURE MEASUREMENTS: 
TRACK CYLN SECT -OFST -OFST 
(UIN) (UIN) 
X XXX XXXX  XXXX 


XX 
x XXX XX XXXX XXXX 
Xx XXX ete XXXX XXXX 


NOTE 
IN AN ADRS 200 DEFAULT FS DEFAULTS 
To 0 BND LS DEFAULTS aus 12(0CT), FOR 


9.2 NPR / MAIN MEMORY TESTS 


THIS GROUP oF TESTS. EX EXERCISES PLL MEMORY ABOVE THE PROGRAM, VIA 
THE RKOG. THE TESTS ARE DESIGNED TO 


WITH 
MORY TRANSFER FAL FAILURE HEAVY NPR ACTIVITY, IN 
ed Sie RenaGeren (KT 11 C, D OR POP 11770), 
NORY MANAGEMENT TS Is NOT REQUIRED 


NOTE 


THERE IS NO PROGRAM RELOCATION (EXCEPT 
FOR THE XXDP LOADER, IF PRESENT). 
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992 J HENCE, MEMORY IN WHICH THE PROGRAM 
983 / RESIDES IS NOT TESTED. ALSO, THE UNISUS 
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394 PAGE 20 
= : 
337 1/0 ADDRESSES ARE NOT TESTED. 
99g : 
1900 THERE ARE 3 MEMORY TESTS PROVIDED. TESTS 2 AND 3 ARE TESTS OF MEMORY . 
1001 ADDRESSING CAPABILITY DURING DISK NPR’S, AND TEST 4 IS AN NPR/MEMORY 
DATA PATTERN TEST. OURING TESTING RY MENT WILL ENABLE 
ALL OPERATIONS WILL BE PERFORMED IN K 
WITH ADDRESS RELOCATION BEING DONE THROUGH MANIPULATION OF KERNAL f 


PAGE ADDRESS REGISTERS. 


Setpiei 


9.2.1 TEST 2 - NPR/MEMORY WORD ADDRESSING TEST 


STARTING aT T RST 1ADORESS OF 1 K MEMORY BLOCK BEYOND -T 
Aa et ye fi ur ERC (RWBUF), WRITE UNI 

SOO ARTING Wiart 1) No EACH OF UP TO 64K WORDS (DEPENDING ON T 

AMOUNT ICAL MEMORY). THESE NUMBERS REFLEC UN 

WITHIN THE 64K BLOCK. NEXT WRITE THE 64K WORDS (MAX) 
FT (SCALED, IF NECESSARY, TO AVOID PACK OVERFLOW). THEN ZERO 

ENTIRE 64K BLOCK IN MEMORY, AND READ BD THE DATA BACK FROM THE DISK, AT 

HE PHY: ADDRESSES. 

WRITTEN. TYPE THE FAILING Riya (IF MEM. MANAGEMENT) AND PHYSICAL 


ADDRESSES, AS 
(DECIMAL) FAILING LOCATIONS. 
F MEMORY MANAGEMENT IS PROVIDED AND THERE IS ADDITONAL MEMORY TO 


I 
TEST, REPEAT THE ABOVE ADDRESSING TEST FOR EACH OF THE REMAINING 64K 
PHYSICAL MEMORY BLOCKS. 


OND0000000 
0 0 0 0 bh hm 
WONWU£WlH-O 


9.2.2 TEST 3 - NPR/MEMORY BLOCK ADDRESSING TEST 


iN THIS TEST, MEMORY BLOCK ADDRESSING CAPABILITY DURING RKO& NPR*S IS 


THE TEST BEGINS BY WRITING A SINGLE NUMBER INTO ALL LOCATIONS OF EACH 
ME! OF UP WORDS. TH UNIQUELY DEFINES EACH 


4K HIS NUMBER 

BLOCK. ety WRITE EACH BLOCK ONTO DISK AT ADDRESS FC, FS, FT (SCALED 

IF NECESSARY TO AVOID PACK OVERFLOW OR DESTRUCT ION OF THE BAD SECTOR 
. THE BLOCK I THEN T 


ca nee a 2 a ES ES SS SE EN 


COMPARE THE CONT TO EXPECTED VALUES. 
FAILURES AS DESCRIBED ABOVE FOR THE FIRST 10(DEC) FAILING LOCATIONS. IN 
EACH 64K MEMORY BLOCK. 


9.2.3 TEST 4 - NPR/MEMORY DATA PATTERN TEST 


IN THIS TEST PHYSICAL MEMORY LOCATIONS ABOVE THE PROGRAM ( 
INCLUDING UPPER UNIBUS DEVICE ADDRESSES) ARE EXERCISED WITH UP TO 


0s B22 = b= bs Fn 8 ho Bs Bw Fn oe hme Bae hs Fe bane Hae nn Bs Be bt Bs 0 Be bs 0a ha ne b= bo bo 0 ns Fans 0 2 fs f= f= F-2 h0 h = Bo ho 


Be FRTOS OUR CRE EON OO ORES 


NOT 
1S 
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1059 DATA PATTERNS, AS CHOSEN FROM THE FIRST 14 PATTERNS DESCRIBED IN 
1051 SECTION 8.3, PLUS PATTERN 15 (USER DEFINED PATTERN). THE DATA 
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1054 
1055 PATTERNS DESIRED FOR THIS TEST ARE CHOSEN SEPARATELY, HOWEVER, AND 
1056 THEY DEFAULT TO PATTERNS 8, 9, 10, AND 1 
1 MEMORY v 1S TESTED IN BLOCKS OF E4K, STARTING AT THE FIRST ADDRESS OF 
1 1K MEMORY BLOCK BEYOND THE HE PROGRAM. ERCH BLOCK OF UP TO 64K 
1060 ig LOADED, WITH DATA, WRITTEN ONTO DISK FT, LOADED WITH 
105 EROS D REN BACK AND COMPARED. ute 15 “Aone Stop EACH OF THE DATA 
10b¢ BR eans is CHOS' NCLUDING AN OPTIONAL PATTERN CHOSEN BY THE USER. 
1064 
1065 
1056 9.3 TEST S - UNIBUS CONTENTION TEST 
1068 THE PURPOSE OF THIS TEST I EXER T NTROL_ LOGIC WITHIN 
TBE THe CONTROL TR "EScu lB mantic =) By A CONTE ENTION FOR HoMORY e¥cLes 
1070 ARISES OTE THE PROCESSOR AND T 
1072 FIRST, A WRITE DATA I BEGUN ON CYLINDER FC, (SCALED TO AVOID PACK 
1073 OVERFLOW) AT SECTOR 0, WITH THE BUS ADDRESS INCREMENT INHIBIT BIT SET 
1074 IN THE CONTROLLER. USING A WORD COUNT OF 12000(0CT) OR 13000(0CT) 
1075 (DEPENDING ON THE FORMAT) ENTIRE TRACK IS WRITTEN WITH THE FIRST 
1076 WORD OF USER DEFINED PATTERN 15 (IF SELECTED) OR THE FIRST WORD OF 
1077 ATTERN 13 (BY DEFAULT). HEN. AN INSTRUCTION LOOP IS ENTERED IN 
1078 WHICH A NON-EXISTENT UNTBUS DEVICE’ ADDRESS IS REF PER 
1079 Pass. THIS W N A PROCESSOR SI OF THE UNI FOR 5-6 
1080 MICRO-SEC SoEE HE PROCESSOR) OWED BY A ISTEN 
1081 , ONCE PER PASS. "THUS, FOR EACH THE 
1082 INSTRUCTION S5oH Th HE’ CONT FORCED TO LOSE F ONE TO FOUR 
1083 rite EXECUTION TIME OF THE TERM 
| 1084 REPITITION RATE OF THE NON-EXISTENT MEMORY ES, THIS I 
1085 NPR’S SO THAT T ATE 
| 1086 ERRORS IN A FAULT-FREE CONTROLLER. THE DATA IS THEN WRITE CHECKED FOR 
| 1087 VERIFICATION, AND ABOVE I TEST IS REPEATED USING A READ DATA 
1088 COMMAND. NO’ ERRORS ARE EXPEC 
1090 THE ABOVE OPERATIONS ARE REPEATED 15 MORE TIMES, USING THE NEXT WORD 
1091 OF THE PROPER PATTERN (13 “OR 15) EACH TIME, TO WRITE AND READ THE 
103 ENTIRE TRACK. 
Be 
| 103% 9.4 TEST 6 - MULTI-DRIVE INTERFERENCE TEST 
' 4098 THIS TEST ORMS MULT VE POSITIONING RATIONS, WHILE A LARGE 
| 999 DATA TRANS ER IS IN. IN PROGRESS ON He DRIVE Rit: Hest, FOR THe PURPOSE 
| 1168 OF DETECTING PR N. THE TEST 
| 1101 ONLY IF THERE TS HORE THAN ONE DRIVE ON THE SUBS YST 
| 1193 THE TEST PRO PROCEEDS AS AS FOLLOWS: ll. Is FI FIRST DETERMINED WHICH Hest onives 
ui N. CL AND A ON ach ber ts KI 
ii? BONE SH FC PLE tore Crt 0-18, BORE Oh ne DRIVE UNDER TEST 3 
, 107 goer BEGUN ON EACH OF THE OTHER DRIVES , EACH TO A DIFFERENT 





11% PSEUDO-RANDOM CYLINDER ADDRESS. THIS SHOULD REQUIRE FROM 10-67 
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IS BEGUN ON THE DRIVE UNDER TEST, AT THE CURRENT CYLINOER (FC), SECTOR 

TRACK O, WITH THE BUS ADDRESS INCREMENT INHIBIT BIT SET “IN THE 

CONTROLLER, | one Wore A WORD COUNT OF 15,616 (DEC) WORDS IF 20 SECTOR 
FORMAT 152 (DEC) WORDS IF 22 SECTOR FORMAT. THIS WORD 

poe TS 10 A ‘Hut CYLINDER + 1 be OF DA are THIS TRANSFER REQUIRES 
FROM 101-126 MILLI-SEC TO COMPLETE, AND IN THAT TIME THE 


DRIVES SHOULD HAVE COMPLETED POSITIONING. Next A WRITE CHECK IS DONE 
TO VERIFY THE DATA WRITTEN ON THE DRIVE UNDER TEST A CHECK I 
MADE TO INSURE THAT ALL OTHER DRIVES WHICH PERFORMED SEEKS WERE ABLE 
TO COMPLETE THEM SUCCESSFULLY, BY CHECKING ATTENTION BITS AND 
COMPARING DRIVE CYLINDER ADDRESSES TO EXPECTED VALUES. 


10.0 ERROR REPORTING 


10.1 COMMON ERRORS 

THE FOLLOWING IS A LIST OF COMMON ERROR MESSAGES WHICH ACCOMPANY ERROR 
TYPEOUTS FROM THE SUBSYSTEM VERIFICATION PROGRAM. THE ERRORS ARE 
SELF-EXPLANATORY. 

UNIBUS PARITY ERROR 

NON-EXISTANT MEMORY ERROR 

NON-EXISTANT DRIVE ERROR 

UNIT FIELD ERROR 

SUBSYSTEM TIMEOUT 

SERCON PARITY ERROR 

Brive, DETECTED PARITY ERROR 


SPEED LOSS 

By E Are EaoaR ON ERROR 

NON-EXECUTABLE PUNCTION ERROR 
TYPE ERROR 


oO . 
bes | 

a 
a 


mow 
in eeaae 


RROR 
OVERFLOW ERROR 
oN NDER ESS ERROR 


bb bb = = bh 
GOONONEWU So Nown.£erve 


3 
B22 
zie 


rm 
Gr . 
2 
S 


ROLLER TIMEOUT ERROR 
ION ee ERROR 


age 
Bz 


WR 
28. DATA MISCOMPARE 
29. NO DRIVE RESPONSE - UFE AND NXD 





ee ee eee © oe ne a a i or empty 
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188 30. URIVE ERROR WILL NOT CLCGR 


1 
1 31. DRIVE STATUS CHANGE WILL ;!9T CLEAR 


me a i a a eT Te ea 
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NB.C 
1168 PAGE 23 
Hs 

fd 
1171 32. ATTENTION BUT NO STATUS CHANGE OR FAULT 
1172 33. ATTENTION BUT DRIVE NOT 
1173 34. ERROR Wd WHILE Ga GATHERING DRIVE Sri 
1174 35. MULTIPLE ELECT 
1175 36. HEADER Con PRARE ERROR 
1176 37. ERROR IN RECAL IBRATE FOR RECOVERY 
1377 38. CLEAR CONTROLLER DID NOT CLEAR ERROR 
1178 39. NO ATTEN TION IN ATTENTION SUMMARY REGISTER 
1179 4Q. UNSOLICITED ATTENTION 
1180 ul. UNEXPECTED DATA TYPE ERROR 
1181 42: ATTENTION DID NOT RESET WITH CLEAR 
1182 43. SUBSYSTEM CLEAR DID NOT CLEAR DRIVE ATTENTION 
1183 44: DATA LATE WHEN UNLOADING 
1184 4S. CONTROLLER ERROR WHEN DRIVER SERVICING 
1185 4B. RETRY UNSUCCESSFUL 
1186 47, BAD SECTOR ESROR ON SECTOR NOT LISTED BAD 
1188 
1189 
1190 10.2 ERROR HANDLING 
11 RRORS REPORTED BY THE PROGRAM ST OF C¢ FAILUR SULT 

| 118s Fron ATTEMPTED SUBSYSTEN F FLNcHION Re wep ueLL m Des “ceRIAIN ERors UNLGLe 

| 1195 bescetpTion & AND Teer NUMBER PEO Ou NED BY y REROER CINES” COLURN "Me 

| He ADING COLUMNS OF” REGISTER CONTENTS JIN. OcTAL. AS. HCH ‘ % 

vei EAN NGFUL REGISTER DATA AS POSSIBLE (FOR EXAMPLE 1 REGISTERS) 

| 1198 REPORTED IN A GIVEN RROR. hy THE cA OF A DATA MI at TSCOnPRRE 

| 139 ; TANCE, THE NUMBER DATA WORD At EMORY 
1200 ADDRESS, VIRTUAL RODRESS, oho ‘HEHORY RUANGGEMENT REGISTER” CONTENTS (IF 

| 1201 PRESENTS ARE REPORTED.’ OTHER ERROR REPORTS MAY CONSIST OF A SINGLE 

i 202 DESCRIPTIVE LINE. 

1203 

| 1208 

| p05 

| . 1206 | 10.3 ERROR PRINTOUT EXAMPLES 

| 208 EXAMPLE 1: 

| 1808 #4 WRITE CHECK ERROR 

ae as 

dele PREVIOUS . COMMAND: 

| 4213 boaotg, Biot CYLNDR TRACK SECTOR WD CNT 

tela Hoa Cb Be 000016 000001 O00000 175600 

| 1216 

| dei? 

. 1218 CURRENT COMMAND: 

, del ERR PC DRIVE CMND CYLNDR TRACK SECTOR WD CNT 

| 220 041154 000000 000131 O00016 000001 000006 175000 

| 1pe1 HI BA LO BA 

| Ieee 000000 061566 

l223 
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1358 
1555 
l 000016 ocoo01 oo0006 
1230 
123! 
1232 EXAMPLE 2: 
1233 
1234 ## DATA MISCOMPARE 
les TEST 2 
les? PREVIOUS COMMAND: 
1235 DRIVE CMND  CYLNDOR TRACK SECTOR WD CNT 
1239 090900 600131 600016 ocod0: Oo0000 17s000 
1240 HI BA LO BA 
tei oo0000 674000 
| 1e43 CURRENT COMMAND: 
1e44 ERR PC DRIVE CMND  CYLNOR TRACK SECTOR WD CNT 
1245 033156 000000 O00121 OOO0l& oco0001 00000 175000 
1E46 HI BA LO BA 
le+7 
1242 
+ [p45 PACK ADDRESS OF ERROR(S): 
| 1250 CYLNOR TRACK SE 
esl 600016 000001 
1253 Ws GOOD BAD HI PHY LO PHY VRT AD KIPARE 
1255 000400 000401 125252 oo0000 oO 155000 000600 
| 1256 000401 O00402 125252 000000 O75002 155002 o00600 
i 000402 900403 lepebe 000000 075004 155004 000600 
1258 090403 coo4o4 | 000000 675008 155006 000600 
1259 000404 OO0040S 125252 000000 10 155010 000600 
| 1266 BOO¥05 O0040G ieSe5e 000000 7501 155012 000600 
| eel p00406 000407 125252 900000 14 155014 000600 
——«* Tee 000410 125252 ofo000 075016 155016 o00600 
1263 000410 000411 125252 000000 075020 155020 oo0600 
1268 11 O00412 125252 000000 2 155022 000600 
1266 
1267 
lebe 11.0 RKOG HEAD ALIGNMENT AID 
1270 THIS PROGRAM IS PROVIDED AS A SOFTWARE AID TO HEAD ALIGNMENT OF THE 
1271 RKO& DRIVE, TO BE USED IN CONJUNCTION WITH THE RKO& FIELD TEST BOX, OR 
1272 OTHER SUIT INDICATOR OF HEAD ALIGNMENT. THE N 
1272 TWO MODES. FIRST 1s MANUAL CT HODE, WHICH SELECTS A SPECIFIC 
t DRIVE BND HEAD Q BE ALIGNED BY TTY INPUT A THE CONSOLE. THE 
1275 MODE IS AUTO-SELECT MODE, WHICH ALLOWS REMOTE DRIVE AND HEAD SELECTION 
| 1276 lam THROUGH OPERATION OF DRIVE DUAL-PORT SELECT SWITCHES. IN EITHER MODE 
1277 . THE OPERATOR HAS THE OPTION TO EITHER PERFORM HEAD ALIGNMENT, VERIFY 
1278 ALIGNMENT, OR REQUEST UP TO FIVE MINUTES OF RANDOM SEEK EXERCISES TO 
1273 BE PERFORMED ON THE SPECIFIED DRIVE (S). 
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TO PERFORM HEAD ALIGNMENT, THE ALIGNMENT INDICATING DEVICE MUST BE 
come’ TED TO. THE ORIVE 18 1D MS Mea ne crete oh FRG ATTACHES TO T 
IT ROM 1 DRIVE MUS 

ORIVE TO BE unt’ 


mo ¢ 


RKO& READ/WR ay E. a allt 

BE OISPLA A METER OR OTHER igi} Sal. 
eo Sire cARTR IDGE, AND 

CONTROLLER MAY BE ALT 


URTTE-PROT ee ETGH ORIVes 
PuREOee OF THE HE s iSeh he RENE REGISTER BITS eC 


att 


11.2 OPERATIONAL MODES 


THE PROGRAM COMMUNICATES WITH THE OPERATOR DOING THE ALIGNMENT THROUGH 
CONSOLE DIALOGUE. WHEN THE PROGRAM IS STARTED AT ADDRESS 224 OCTAL), 
IT TYPES IDENTIFICATION: 


“ ##% RKOG HEAD ALIGNMENT AID #x# 
TYPE H(CR) FOR INFORMATION- OTHERWISE, TYPE (CR) “ 


NEXT, THE PROGRAM REQUESTS THE DESIRED MODE OF OPERATION: 
" MANUAL OR AUTO NODE (OR A)? 


DOREN-B = RKELI“RKOS SUSSYSTEM VERIFICATION : PART 2 MACY11 27(732) O3-NOV-76 21:43 PAGE 44 
OZRENB. CNS 
{ 
L. ro MAKES THE SELECTION, AND ENTERS ONE OF THE FOLLOWING 
i ‘ 


11.2.1 MANUAL SELECT MODE 


IN THIS MODE, THE DRIVE(S) TO BE ALIGNED AND THE HEAD(S) TO BE 
SELECTED ARE SPECIFIED BY TTY INPUT. THIS MODE IS USEFUL FOR SYSTEMS 
WITH DRIVES, WHICH ARE IN CLOSE PROXIMITY TO THE CONSOLE, AS IN 
TYPICAL FIELD INSTALLATIONS. 


THE PROGRAM FIRST ECHOS THE MODE: 
“# MANUAL SELECT MODE * “ 
AND TYPES “ENTER DRIVE NO. (O-7):". 


THE OPERATOR TYPES THE DRIVE THE PROGRAM TYPES THE DRIVE 
SERIAL NUMBER THEN ASKS OA TeN? VERIFY, OR EXERCISE (A OR E) 
ae THE OPERATOR RESPONDS, AND THE PROGRAM’ ENTERS THE APPROPRIATE 


11.2.1.1 MANUAL SELECT ALIGNMENT 
ALIGNMENT IN MANUAL MODE PROCEEDS AS FOLLOWS. THE PROGRAM TYPES: 


0 = 0 22h b= 0 0+ 8 = & B= & 2B & 2 OB = = BH 3 2 = = 2 = 0 b= 0-0 2 2 3 b 2 8-2 Oo 28 2 0p 2h P= 0 - 0-2 p29 2m 2 9-- 


SR IRRE OREM RE OOS tits Gain coho ae doe ake ae 
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wy “& MANUAL SELECT a rey! #," FOLLOWED BY 
“ ENTER HEAD NO. (0-2 
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1342 PAGE 26 
ie 
T RATOR TYPES T Part PROGRAM 0 
THE ORAS. ON rte DRIVE, iN R alt ices or of Open o ROUNTING OF Mi 
1347 HEAD ALIGNMENT T N READY: 
1348 THE TOOL HAS BEEN MOUNTED THE “OPERATOR TYPES” , AND THE P ROGRAN 
1349 LOADS HEADS AND RESPONDS WITH: 
1 OS POSITIONED AT CYLINDER 36S5(0CT)” 
3$e AND ™ X SELECTED” 
THE POSITIONING St ay 365 IS DONE IN SINGLE INCREMENT SEEKS, 10 
AVOID EXCESSIVE UM ON THE POSITIONER, WHILE THE ALIGNMENT TOOL 


the mc sien 10 ek FOR Big aNOTH oa RUMEER Ok aR THIS His RIVE. 


IS TY HER BAC 
(STILL IN THE SAME MODE). IF CONTROL R (tR) 
EXITS FROM THE CURRENT MODE, AND DOES A COMPLETE RESTART. 


in 
3D 
S858 
4 


11.2.1.2@ MANUAL SELECT VERIFY 
VERIFY MODE IDENTIFIES ITSELF AS FOLLOWS : 


s MANUAL SELECT VERIFY 3" , FOLLOMED BY 
“ENTER HEAD NO. p 
TNG ANDY CBaoHne” OF HEADS I 15 HoT Done, EETMEEN Fen Peng SELECTIONS, . 


WNEREFORE, IN THIS HO Ik i 
ALIGHPENT VERIFICATION tusitic SHETAL owen METERS WETHOGT THE DELAYS ie 
OF UNLOADING, AND LOADING HEADS. IN THIS MODE, He’ OPERATOR WELL NOT 


11.2.1.3 MANUAL SELECT EXERCISE 


eee 


N THE EXERCISE SUB-MODE ECT MODE IS ENTE 
ae SESE eee uae is i ie 
KS WHICH PR TYPING 


rc ea THE PROGRAM THEN LOADS HEADS, AND 
“% SEEK EXERCISES IN PROGRESS ON DRIVE X #*. 


AT THIS POINT, 7500 SEEK ON T IVE, WHICH LASTS 
FOR ABOUT Five mut TES, = DON. COMPLETION He PRE SE EXERCISES Fue 
PROGRAM RETURNS T OR EXER Ate a wench IN MANUAL 
MODE) ON THIS BRIVE pa a TENERCT SUB-HODE CHARAC (+ 

(40), Ano «t (4R) PERFORM THE SAME FUNCTIONS beSCRI IBED IN SECT 


See P RTE G Lice oR Rann Rens aaaata na ariC dota 


3 
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1398 PAGE 27 
14 
1334 11.2.2 AUTO SELECT MODE 
1403 IN THIS MODE, ALL SELECTION OF DRIVES AND HEADS FOR ALIGNMENT IS DONE 
1404 BY SEQUENTIAL OPERA TION OF DRIVE PORT ogee SWITCHES. THIS ALLOWS 
1405 COMMUNICATION WITH THE PROGRAM TO = REMOTE FROM THE CONSOLE. THUS 
14 AUTO SELECT MODE IS WELL SUITED TO THE MANUFACTURING TEST ENVIRONMENT 
14 OR TO A FIELD INSTALLATION, WHICH HAS A NUMBER OF REMOTE DRIVES. THE 
1408 PROGRAM FIRST ECHOS THE MODE: 
1419 “ % AUTO SELECT MODE * “, AND ASKS 
ai “ALIGN OR EXERCISE (A ORE) 2”. 
1413 THE nOPERATOR RESPONDS, AND THE PROGRAM ENTERS THE APPROPRIATE 
i415 ; 
1416 
1417 
1418 11.2.2.1 AUTO SELECT ALIGNMENT 
1420 ALIGNMENT IN AUTO SELECT MODE PROCEEDS AS FOLLOWS. THE PROGRAM TYPES: 
1422 " % AUTO SELECT ALIGNMENT * ”. 
1424 THE PROGRAM CONSTANTLY SCANS ALL DRIVES 0-7 TO DETERMINE THE EXIS 
1425 OF A DRIVE IS DESELECTED BY THE OPERATION OF ITS PORT 
| 1426 SELECT SWITCH PROGRAM RECEIVES A NON-EXIS DRIVE INDICATI 
| Wee RIV eres PREVIOUSLY * OFFS INE  COESELECTED) HAS’ JUST BECO 
| i429 OrLINe (SELECTED), IT PREPARES FOR (OF FERMENT oh funy ORIVE. IN 
1430 THE OPERATOR SELECTS A DRIVE FOR ALIGNMENT BY DEPRESSING 
| 1431 THEN THEN RELEASING THE PORT SELECT SWITCH (FOR THE PORT IN USE) ON THAT 
| 1433 
| 1434 THE PROGRAM RECOGNIZES THE DRIVE SELECTED, AND CHECKS IT TO BE SURE 
1435 THAT IT IS WRITE-LOCKED. THE THEN TYPES: 
| 1432 “DRIVE X SELECTED” 
| 439 AND THEN IT UNLOADS THE HEADS ON THAT DRIVE SO THAT THE OPERATOR CAN 
| 1440 MOUNT THE HEAD ALIGNMENT TOOL. WHEN IT IS MOUNTED THE OPERATOR MUST 
| 1441 DEPRESS AND RELEASE THE PORT SWITCH Agari AND THE PROGRAM LOADS 
 ‘yaue HEADS, SEEKS IN SINGLE INCREMENTS OUT TO THE ALIGNMENT CYLINDER (365 
| 1443 OCT.)’ AND TYPES: 
| Jays “HEADS POSITIONED AT CYLINDER 36S(OCT.) 
| faup HEAD O SELECTED”. 
14g AFTER THE OPERATOR ALIGNS HEAD 0 MAY PROCEED TO HEAD 1, BY 
ae DEPRESSING AND. RELEASING <THE PORT SELECT SWITCH. WHEN HE DOES" THE 
/ 1450 HEADS WILL BE UNLOADED AGAIN, AND THE OPERATOR MAY MOVE THE ALIGNMENT 
| 4451 TOOL 10 HEAD 1, AND UPON DEPRESSING AND RELEASING THE PORT SWITCH 
ibe D 0 CYLINDER 


AGAIN, THE HEADS WILL BE LOADED, THE PROGRAM WILL SEEK T 
365(00T), AND TYPE: 





(eee ee ee 
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1454 oi 
i4é5 “HEADS POSITIONED AT CYLINDER 365(0CT) 
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" HEAD 1 SELECTED". 
THIS PROCESS MAY BE CONTINUED WITH HEADS BEING SELECTED. IN. THE ORDER 
O CHRENT’ 0, 1, 2, 0, ETC. UNTIL THE OPERATOR HAS COMPLETED THE 


WHEN THE OPERATOR COMPLETES Siege ot THIS DRIVE, HE SHOULD REMOVE 
THE ALIGNMENT TOOL, AND pice RIVE ON-LINE. IF HE THEN WISHES 
TO SELECT ANOTHER DRIVE, H auTTCH eA at DRIVE OFF-LINE AND 
THEN ON-LINE AGAIN TO mnie WHEN ALL DESIRED ORIVES 
HAVE 6 8 ALIGNED THE OPERATOR T 

11.2.1.1. _BEFORE LEAVING ALIGNME ofan PROCEEDING TO DO SEEK 
EXERCISES, THE OPE OPERATOR MUST BE SURE to REMOVE THE ALIGNMENT TOOL(S) 


NOTE 
ie tC FUNCTION DOES NOT APPLY IN AUTO 


11.2.2.2 AUTO SELECT VERIFY 
VERIFY MODE IDENTIFIES ITSELF AS FOLLOWS : 
“# AUTO SELECT VERIFY #” 
HE AUTO ALIGNMENT MODE 
I TWEEN HEAD 


S NOT DONE 

CK “au T T eERTEICAT hatr THE AL QRMENT METERS WITHOUT 
UNLOBDING AND CATION eIN 

11.2.2.3 AUTO SELECT EXERCISE 


IN AUTO SELECT Rte SUB a, Oe ee. yt te - ante 


UPON ALL ORIVE 

STARTING. WITH BRI OpenATOR GS TehcA ay NERCTS A 
(7500 adie SHORT a SCTEIES Ai SEEKS- | “REACT 5 
BE Sear oRED UPON ENC 

AUTO SELECT EXERCISE MODE IDENTIFIES ITSELF AS FOLLOWS: 


” % AUTO ELECT XERCISE 
FOLLOWED OR lah (S “OR L) 2”, 


THE OPERATOR TYPES HIS RESPONSE , AND THE SELECTED SEEK EXERCISES ARE 


at ei 
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1$le PERFORMED ON EACH ORIVE. UPON COMPLETION OF THESE EXERCISES 
1S13 PROGRAM RETURNS TO ASK FOR “ALIGN OR EXERCISE?” (STILL IN AUTO M 


ee ae ee ne = te re nee 


THE 
8DE). 
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WHILE IN EXERCISE SUB-MODE THE CHaRacTERS tZ AND tR PERFORM THE SAME 
FUNCTIONS AS DESCRIBED IN SECTION 11.2.1 


NOTE 


BEFORE REQUESTING AUTO-EXERCISE MODE 

THE OPERATOR MUST REMOVE THE BL IGNNENT 
TOOL (WHILE STILL IN AUTO-ALIGNME 
MODE) WHILE THE HEADS ARE UNLOADED. 


11.3 ALIGNMENT AID ERROR MESSAGES 


1. “DRIVE X NOT READY! PLEASE START IF DESIRED, THEN PRESS CONT’ 
ON CPU WHEN READY. - THIS INDICATES THAT A DRIVE SELECTED FOR 
ALIGNMENT WAS FOUND NOT READY. 


2._ “DRIVE X NOT WAT TE LOCKED! PLEASE SET WRITE LOCK SWITCH. PRESS 
*CONT’ ON CPU WHEN READY“. - THIS INDICATES THAT A DRIVE SELECTED FOR 
ALIGNMENT WAS FOUND NOT TO BE WRITE-PROTECTED. 


3. “PLEASE LOAD EINE CARTRIDGE ON DRIVE X! PRESS CONT’ ON 
CPU WHEN HIS INDICATES THAT A DRIVE SELECTED FOR ALIGNMENT 
WAS NOT LOADED WITH AN ALIGNMENT CARTRIDGE. 


4. “MULTIPLE DRIVES AUTO-SELECTED! PRESS ‘CONT’ TO RESTART.” 
- THIS INDICATES THAT IN AUTO ALIGNMENT ey MORE THAN ONE OF THE 
DRIVES WERE SELECTED FOR ALIGNMENT SIMULTANEOUSELY 


S. "CANNOT READ BAD SECTOR FILE ON DRIVE X!? PRESS ‘CONT’ ON CPU TO 
RESTART”. = Hats INDICATES THAT A READ ERROR WAS ENCOUNTERED WHILE be 
PROGRAM WAS ATTEMPTING TO IDENTIFY THE CARTRIDGE ON ORIVE X AS 
ALIGNMENT CARTRIDGE. 


6. “9 ~ THIS IS TYPED BY THE PROGRAM IN RESPONSE TO THE INPUT 
OF AN IN VALID PARAMETER, SHOWN HERE AS X. THE OPERATOR SHOULD NOW 
ENTER THE PROPER VALUE. 
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APPENDIX A 
SAMPLE ADDRESS 200 DEFAULT RUN 


THE FOLLOWING PRINTOUT WAS T RESULT OF RUNNING _ SUBSYSTEM 
VERIFICATION PART 2, ONA SINE ORTYE (DRIVE 0), FOR THE FIRST Page 
OF THE PROGRAM (QUICK-VERIFY PASS). IN THIS MODE, ALL MESSAGES 
APPEARING HERE WERE OUTPUTS--NO OPERATOR INPUTS ARE PROVIDED ON AN 
ADDRESS 200 RUN. 
DZREN-B - RK611/RKO& SUBSYSTEM VERIFICATION : PART 2 
LAST PHYS MEM ADR = 377776 
DRIVE 1 NON-EXISTENT 
DRIVE 2 NON-EXISTENT 
DRIVE 3 NON-EXISTENT 
4 NON-EXISTENT 
DR N T 
DRIVE 7 NON-EXISTENT 
DRIVE(S) = 0 
TESTING DRIVE 0 


DRIVE SER. NO. 8 
CART. SER. NO. 334 


OFFSET-TO-FAILURE MEASUREMENTS: 





TRACK CYLN SECT +0FST ST 
(UIN) (UIN) 
4) 0 OQ NONE NONE 
0 O 12 NONE 1175 
0 836s 0 yk 3 NONE 
0 631 if NO NONE 
1 0 10S0 NONE 
1 he 1200 
1 631 O NONE NONE 
i 631 is NONE 
e 0 NO NO 
e 0 is NO NO 
e 631 NONE NONE 
e 631 le NONE NONE 
END PASS.# 





| 
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vende Tent iee 


ENTER L,C, ORT 


10 DEFAULT TESTS TYPE D <CR>, ELSE <CR> 
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THE FOLLOWING PRINTOUT WAS THE RESULT OF RUNNING SUBSYSTEM 





PART 2, ON A SINGLE DRIVE (DRIVE 0), oft PARTICULAR 
1641 TESTS ePELECT TED TO BE RUN FOR SPECIFIED NUMBERS T WITH 
ig42 SPECIFIED PARAMETERS, AND A SPECIFIED NO. a asses. 
1643 SPECIFICALLY IT WAS DESIRED THAT TEST 1 BE RUN ONCE, TEST 4 ONCE 
1644 TEST 6& ONCE. THESE TESTS WERE SPECIFIED TO RUN FOR I PROGRAM Bocce 
1645 USING PARAMETERS SPECIFIED BY THE OPERATOR. IN THIS. SECTOR 
1E46 ADDRESS LIMITS (S2 AND S3) AND DATA PATTERN (PT) WERE COPE IFIED AS 
baz NON-DEFAULT VALUES. 
1639 DZREN-B - RKG11/RKOG SUBSYSTEM VERIFICATION:PART 2 
1651 
1652 LAST PHYS MEM ADR=377776 
1653 
1654 
1655 PARAMETER INPUT MODE 
is RKO BUS AOR = 177440 NEW = 
1 BKOe Net a NEW = 
166 RKO& PRIORITY = NEW = 
661 
662 DRIVE(S) = 0 
663 + 
cee 
o tS Hats, 
= 
be) I= INPUT TERS AND RUN TESTS 
669 
670 
£7 
6 
6 


ee ee See ed ee ee en ee ee ed 


TEST ITERATIONS 
1 Qe * 


¢ EB 


4 e # O\OM 


atatataten 
axcuds 





r i re EL Tc 


BOS 
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32: 


weNS.S. ui: 
i875 S 220 
1669 e 109 # j 


ee 0 ee ee ee cee ete ee ne a Ce ee 0 ee cones 
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1683 
1684 ENTER L,C, OR I 
16g > 
1686 
| tee? TEST ITERATIONS 
1688 i 
1689 2 2 
1690 3 0 
163} ~ ! 
1632 S 0 
1833 £ 1 
1b34 
sss ENTER L,C, OR I 
| 1696 #1 
i {697 
| 1698 T = TYPE PARAMETER LIST 
1699 O = OPEN PARAMETER LIST 
1700 S = SET INDIVIDUAL PARAM 
1701 R = RUN TESTS 
1702 
1703 ENTER T,0,5, OR R 
| 1704 #T 
| 1705 FC=0 
1706 LC= 
{ 1707 FT=0 
iF LT= 
1709 So= 
1710 S1=23 
W711 Se= 
1712 S3= 
1713 PT=0 
1714 cs=0 ‘ 
| 1735 ST= 
, &7le . 
1717 ENTER T,0,S, OR R 
1718 c 
1713 >» Se=4 
| 1720 >» SV= 
Sv=20? 
iB 5; 
1724 TO MODIFY PATTERN 15, TYPE M <CR>, ELSE <CR> 
«OU ee 
| 1727 MODIFY USER-DEFINED PATTERN 15: 
1728 WORD 00 = 072307 * 123456! 
1723 »¢ 
1730 
1731 ENTER T,0,S, OR R 
1732 *T 
1733 FC= 
1734 LC=632 
1735 FT=0 
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1737 SC=0 
1738 $is23 
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1739 PAGE 33 
1740 
1741 
1s Se=4 
174 $3=20 
1744 PT=100000 
745 cs=0 
746 ST=0 


rt 
00D SS 


er i ae PATTERN 15: 


1 
' 
174 ORD OO = 123456 
1750 WORD O1 = 123456 
1751 WORD O2 = 123456 
175e WORD O03 = 1234556 
1753 WORD O04 = 123456 
1754 WORD OS = 123456 
ce wre OS = iexee 
rd = 

1 WORD 10-1 
1758 WORD 11 = le 
1759 WORD le = 123456 
1760 WORD 13 = 123456 
1761 WORD 142 

| 1755 = 123456 

1758 ENTER T,0,S, OR R 

1766 

| 17§7 ri ENTER NO. OF PASSES (1-77777) : 

ig 

i 

| 1770 T IVE 0 

| 17 ORV e SER. wm. 8, 

| 177e CART. 

i 773 


| 177% 

| 1775 OFFSET-T0-FAILURE MEASUREMENTS: 

| 4776 TRACK CYLN SECT +0FST -OFST 

«ee COIN) (UIND 

| 41773 8 S 20 NONE NONE 

| 1780 631 “4 NONE 

eee i Re 

| «BB t+ 8 a 

(4784 1 631 14 NONE NONE 

| 1785 1 631 20 NONE 

a: pti a 

| 1788 : 631 4 

8 631 20 NONE NONE 

| 4733 ENO pass st 
179 0 TEST ALL DRIVES TYPE “A” <CR>, ELSE <CR> 
17 + 
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1795 : 
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APPENDIX C 
SAMPLE MANUAL MODE HEAD ALIGNMENT AID RUN 





pssst etaicisi =e 


a a agit ee Is ante a SAY 
gI3 That ORDER, IN Isc CASE THE OPERA OPERA SELECTE ne Le 1, 0, sit 2, 2, i 
Bie IE le 5 a ea ArlGeNt 00) laerdibae Toca Ou 
817 BY ite NG (2), iN THIS PAR RTICULAR RUN. FINALLY, 
B18 VERIFY MObe he has Oe Beek AND HEAD’2 WAS SELECTED BY THE OPERATOR. 


DZR6N-B - RKE11/RKO& SUBSYSTEM VERIFICATION : PART 2 
##% RKOG HEAD ee ae BrD HEX 

FOR HELP TYPE H, ELSE < 

| a OR AUTO MODE (M OR A)? 


# MANUAL SELECT MODE * 

ENTER DRIVE NO. (0-7): 

DRIVE SER. NO. 8 

ALIGN, VERIFY, OR EXERCISE (A, V, OR E)? 


% MANUAL SELECT ALIGNMENT * 

ENTER HEAD NO. (0-2): 

ae <R> WHEN READY: 

TIONED AT CYLINDER 365 (OCT) 


Rl LT lL Ee CN et AL LE LL Ce NC ee tl LC Ct LC CT CL: 


FRESSACRETAC ORES BEM ORS 


AD 1 
ENTER HEAD NO. (0-2): 


+ & 2 B+ bo b= B-2 b= & = = B= = BB 2 = = 8 8 0 $B > Bh 0-2 = & 0 0 bh hm = 2 9 he pH 
™“N 


3 
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1850 a) 
1851 TYPE <R> WHEN READY: 
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R 
HEADS POSITIONED AT CYLINDER 365 (OCT) 
HEAD O SELECTED 


_— HEAD NO. (0-2): 
TYPE <R> WHEN READY: 


R 
HEADS POSITIONED AT CYLINDER 365 (OCT) 
HEAD @ SELECTED 


ENTER HEAD NO. (0-2): 


epenamaaE ¢ 


ALIGN, VERIFY, OR EXERCISE (A, V, ORE) ? 
4Yre <R> WHEN READY: 


_——— SEEK EXERCISES IN PROGRESS ON DRIVE O # © 


Th, VERIFY, OR EXERCISE (A, V, OR E) ? 


et 


*# MANUAL SELECT VERIFY # 
ER HEAD NO. (O-2) : 


HEADS POSITIONED AT CYLINDER 365 ‘OCT) 
HEAD 2 SELECTED 


oyren HEAD NO. (O-2) : 


ALIGN, VERIFY, OR EXERCISE (A, V, OR E) ” 


BOBS RAS Se ose otl soncoe caer 


DWOWDNDND ND NDNDOO OO DMOMMMUNNMMMMDMMMMMmM@M@mE 
w 
bo 


i 
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ZRENB.C 

893 PAGE 36 

§sy 

B55 

8% 

897 

893 

899 

300 

901 

$02 

303 APPENDIX D 

205 SAMPLE AUTO MODE HEAD ALIGNMENT AID RUN 

ze 

3093 FOLLOWING PRINTOUT WAS THE ALI 

310 Alb, VPROVIDED ai N SUBSYSTER VERT Pict on Pa 2 of if Ree 224 START) 

911 AND THE OPER CTED DRIVE O FoR 

912 BUTD NODE We rats ease’ HEADS 0.1.2, AND TOR (enti WERE SELECTED FOR 

313 BLIGNMENT CIN BUTO MODE "THE HEADS tee aLWAYS SELECTED IN THE ORDER 

gis TO ALLOM aEhovEL ORI ALES TON 3 ste HEAD’ AL iCHHE nF TOOL. | NOTE 

816 THAT ALL DRIVE AND HEAD SELECTION (IN AUTO MODE) I Y THE 

917 OPERATOR, AT THE DRIVES, BY OPERATION OF PORT SELECT SWITCHES. AFTER 

918 RLIGNING HEADS, THE OPERATOR REQUESTED RANDOM SEEK EXCERCISES TO BE 

319 RUN ( DRIVES, IN THIS CASE DRIVE 0). SHORT EXERCISES WERE 
REQUESTED WHICH 'RUN FOR 1 M Nite PER DRIVE. FINALLY, AUTO SELECT 

IFY WAS REQUESTED, AND HEADS 0,1, AND 2 WERE SELECTED SEQUENTIALLY. 


DZR6N-B - RK611/RKO& SUBSYSTEM VERIFICATION 1 : PART 2 
##* RKO& HEAD ALIGNMENT AID ### 

FOR TYPE H, ELSE <CR> 

erie OR AUTO MODE (M OR A)? 


# AUTO SELECT MODE # 
ALT, VERIFY, OR EXERCISE (A, V, OR E) ? 


-# AUTO SELECT ALIGNMENT # 
DRIVE 0 SELECTED 


HEADS POSITIONED AT CYLINDER 365 (OCT) 
HEAD 0 "ite 

ee I ° AT CYLINDER 365 (OCT) 
HEADS POSITIONED AT CYLINDER 365 (OCT) 
HEAD 2 SELECTED 


bb b+ 02 = 8 B= 2 bb 0 = 0 bb 0 0 + 0 = bo = bb = += b~ & <0 b— 6 — & 2 9 9 -< b+ b= Bp §- pp 0 0 -s 


PES SSSA RCN ta ie w i A UUr pin i 
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1349 HEADS POSITIONED AT CYLINDER 365 (OCT) 
1950 HEAD 0 SELECTED 


ee ae ee 


ih 


PAGE 37 
tZ 
# AUTO SELECT MODE * 
yom, VERIFY, OR EXERCISE (A, V, OR E) ? 


* AUTO SELECT EXERCISES # 
SHORT OR LONG (S OR L) ? 
EXERCISING DRIVE 0 


SORE tee COM REG 


* AUTO SELECT MODE # 
ate, VERIFY, OR EXERCISE (A, V, OR E)? 


wo 
“J 
o~ 


# AUTO SELECT VERIFY # 
DRIVE O SELECTED 


HEADS POSITIONED AT CYLINDER 365 (OCT) 
HEAD 0 SELECTED 
HEADS POSITIONED AT CYLINDER 365 (OCT) 
HEAD 1 SELECTED 
HEADS POSITIONED AT CYLINDER 365 (OCT) 
HEAD 2 SELECTED 


ALIGN, VERIFY, OR EXERCISE (A, V, OR ED ? 


B= = b-2 pee bs BR hs bb bb 8 be Be = > = bb bb 2 th he 0 bb pe hb 6 he Bh he hah om pw he 


ESR RE ae eee eR TEER EE Sa Nousan 


00001 PART=1 
44% IF “PART” IS DEFINED = 0, PART 1 WILL BE ASSEMBLED. xxx 
44% IF “PART” IS DEFINED NOT = 0, PART © WILL BE ASSEMBLED. *** 
.NLIST MC,MD,CND 
Me 
“ENABL ABS, AMA 
“NCALL HEADER, .SWRHI,.SWRLO, .EQUAT, .SETUP, . SCATCH, SWRSU 
“MCALL + SCHTAG,  STYPE -STYPOCT, .SPOWER, . STRAP, .S0B20, . S0B2D 
2000 “MCALL -SREAD, .STYPDEC, .SRAND, .$S1ZE, . SERROR, . SSAVE 
2001 : “SRAND, . SSUPRS, .SEOP, .SSCOPE, -KT11 
; " MCALL ;SacTLL, .SAPTHOR, . SAPTYPE 
167000 


SSWR= 
oe ELER KLEE LE SSEEL EEE LEEKS ERE RESELL SEE ELERE EEE L SL AK SSH ERE E SERRE R EE 
SBTTL STARTING ADDRESSES 


Paes 
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; 

| 

| 

| 
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2007 +k 2u0 DEFAULT PARAMETERS FOR TESTS 1-6 
2008 x 204 SELECT PARI TERS FOR TESTS 1-6 
2009 # o24 HEAD ALIGNMENT AID 
sai? ; 3 © RHA KA AA KL LAKHS RERA REAR LHL EKKAA KALA LEL ARES AL REREEREHKRERAKEKEEEE 
2012 oocoo! ‘  §TNe1 
2013 TITLE DZREN-B - RK611/RKOG SUBSYSTEM VERIFICATION : PART 2 
2014 | -* ¢8COPYRIGHT (C) 1976 
2015 -. $#DIGITAL EQUIPMENT CORP. 
01 ' 3 MAYNARD, MASS. 01754 
e018 jEPROGRAR BY DAVE HOFFMAN 
2020 #THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
2021 j EPACKAGE (MAINDEC-11-DZ2QAC-CO),MAR 21, 1976. 
ons -$BTTL OPERATIONAL SWITCH SETTINGS 
2025 2% SWITCH USE 
2026 Fc ———— #8 =  smeEbeSrensnasenEeEe 
2027 x 15 T ON ER ROR 
2028 x 14 Looe 
e069 2 13 TNTBYT ERROR TYPEOUT 
ir 12 SCRIPTION ONLY, ON ERRORS 
2031 + 11 INHIBIT TTERAT 
epas 3% 10 BE 
3 3 
2034 2% 8 oo Tat BETWEEN OPERATIONS 
2035 + 6 REPORT ER TRANSFER IN TESTS 2-4 
2036 i 1 INHIBIT “WRITES ff TES 
2037 + 0 T ALL SO THDRE” Coware ERRORS IN TESTS 2-4 
2038 -SBTTL CONTROL SWITCH SETTINGS (PARAMETER CS) 
5000 is SWITCH USE 
204, *# os ROP DRIVE IF 20(DEC) ERRORS EXCEEDED 
204 + 04 YPE BAD SECTOR FILES (BSF’S) ON FIRST PASS 
e044 1 01 INHIBIT OFFSET REPORTS IN TEST 1 
eve .SBTTL BASIC DEFINITIONS 
2048 FINITIAL ADDRESS OF THE STACK POINTER #** 1100 x# 
2049 001100 STACcK= 1100 
2050 Tout be , ERROR ;;BASIC DEFINITION OF ERROR CALL 
2051 ‘EQUIV IOT| SCOPE >;BASIC DEFINITION OF SCOPE CALL 
e055 j AMISCELLANEOUS DEFINITIONS 
000011 ATs T= ;;CODE FOR HORIZONTAL TAB 
See sats os i b CODE FOR CARRIAGE. 
eos? 000200 CRLF 200 : FOR CARRIAGE RETURN-LINE FEED 


PROCESSOR STATUS WORD 
H 


177776 
ie 
177774 TRUS i pine LIMIT REGISTER 
177772 IRQ= OGRAM INTERRUPT REQUEST REGISTER 
: = 177870 ; HARDWARE SWITCH REGISTER 





a 
‘ 
= 
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2098 
2093 


forururururorurroruroroforururururury 
DITMN ww OSS VeN Law 





177570 


> PURPOSE REGISTER PRERAL, REGI 


:;GENERAL REGISTER 
3 GENERAL Reetaten 
RAL REGISTE 


REQUIV Re, SP 
“EQUIV R7,PC 


peetont yy LEVEL DEFINITIONS 


20 


1 a 
peegeprery 


;¥DATA BIT DEFINITIONS (BITOO TO BITIS) 
100000 

= 40000 
20000 





MACY11 27(732) O3-NOV-76 21:43 PAGE 65 


;;HARDWARE DISPLAY REGISTER 


; GENE 
+E NERAL REGISTER 
; GENERAL ten 


CK 
git A COUNTER 


furu— 
—OwW 


RON ECO OUD GOP UN ECO C00 GOP ETUC uD OVUN Cah CouDeD OUT E COFO 


rurururuvrururorurururururorururururufurlrurururururufrururufururururururururururururorururorurufurufururrruroru 
o 
™~N 


ee ae ee he ae me ae ae Be ee ee be ae be Be be 0 be be bo ne be fo bn fe me Be ho bs me bs ho Bo ho 2 bb 2 bo 2 0 ho be he he pe he 


Pan SSH 


RKO& SUBSYSTEM VERIFICATION : PART 2 
BASIC DEFINITIONS 


OZREN-B = RK611/’ 
DZRENB. CNB 
1 
oe 
001000 
00 
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oO~m 


Oh 00 08 08 08 Ob 08 08 88 be Oe 8 OD 
ae 
oO 
Oo 


444444 
— 


BSeoesesss 


Oooo 44444-4414 
Ccoccccoo 
on 
lelulelulululenins 
4 
oO 
Wi) 


fUGs LUI aD 


oOo~ 


RAP VECTOR ADDRESSES 
3; IME OUT AND OTHER ERRORS 
5 sRESERVED AND ILLEGAL INSTRUCTIONS 


- #BASIC 
ERRVEC= 


ps 

Cc 

Lom) 

<= 
re FS MOM 


“+ 
[es] 
4h 
m am 
omc 
runnonws 
“ 
££toO 


CE TRAP 
;;BREAKPOINT TRAP (BPT) 
;;INPUT/OUTPUT TRAP (IOT) *#*#SCOPE## 


:: FAI 
s {EMULATOR TRAP (EMT) **ERROR* 

>: TTY KEYBOARD VECTOR 

TPVEC= 64 3 TTY PRINTER VECTOR 

PIRQVEC=240 >:PROGRAM INTERRUPT REQUEST VECTOR 
.SBTTL MEMORY MANAGEMENT’ DEFINITIONS 


;*KT11 VECTOR ADDRESS 


MMVEC= 250 
;*#KT11 STATUS REGISTER ADDRESSES 
SRO= 177572 
SRi= 177574 
SRe= 177576 
= 172516 


;*KERNEL “I” PAGE DESCRIPTOR REGISTERS 
KIPORO= 172300 
KIPORI= 172302 
KIPDRe= 172304 
KIPDR3= 172306 


oe ee + e - e 


<a Ce ee a nee nce cen ee ee 


ee ee 


' 
: 
i 
t 
‘ 
’ 
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~ CMB 


Pere. o’ 


jal & 


- 
~ 


tururururururufururorurulururururururururufrurufurne 
RON Na ot SST 
What riiteteitritet ih wate ited io) 


a 


N 


SSpoGn 


PERNA 
Oo NOU © Wre- 


a 


RSS 


SOND 
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MEMORY MPNAGEMENT DEFINITIONS 


172310 KIBORY= 172910 
17231 KIPORS= 1723! 

izeal4 KIPOR6= 172914 
17e31e KIPDR?= 172316 


172340 KIPARO= 172340 
Ivea42 KIPARI= [72342 
172346 KIPAR3= 172346 
172350 KIPARY= 172350 
172352 KIPARS= 172 
372254 KIPARG= 172354 
172386 KIPAR7= 172356 
1 MAPLOD=170200 
170202 MAPHOO=1 
172100 i at ;MEMC’Y CSR REG START ADRS 
177; L = 211/70 MEM LO ERROR ADRS REG 
177742 HIERAD=177742 11/70 MEM HI ERROR ADRS REG 
177744 MEMS YS=177744 311/70 MEM SYSTEM REG 
-SBTTL TRAP CATCHER 
009000 -=0 
7 FALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A .+2,HALT” 
;#SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
900174 ; #LOCATION “17 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
DISPREG: | +s OFTWARE DISPLAY REGISTER 
SWREG: ;; SOFTWARE SWITCH REGISTER 
-SBTTL STARTING Montes ES) 
000137 9013450 JMP as0FSTR ;;JUMP TO STARTING ADDRESS OF PROGRAM 
000204 .=204 
009137 013504 JMP aaPSTART 
000224 = 
000137 02362 JMP genetens 
008700 --LOW: .WORD 
001100 HIGH: .WORD 110 
“SBTTL ACTI1 HOOKS 
Neer rer a gro spanlaec a mmucnn ne ne maces neameenie vain 
S REQUIRED BY ACT1 
000234 SSVPC=. ;SAVE PC 
CI0C46 246 
023546 senor ;;1)SET LOC.4& TO ADDRESS OF SENDAD IN .SEOP 
140000 -WORD 140000 530267 LOC.S2 TO 140000 
ee - =$SVPC 33 RESTORE PC 


-=1000 
-SBTTL APT PARAMETER BLOCK 
; HET EScettons AV°MO Wi Ae REQUIRED FORT sessssssesseeeceees 
Meritt iit titi iit tii ttiittiiiiiiri ricer riper ries 
001000 -$X=.  3;SAVE CURRENT LOCATION 


me i nr a ee ee ee oe 








ae 


ro 
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| 2231 go0024 24 5 ;SET POWER FAIL TO POINT TO START OF PROGRAM 
G23e 00024 Oo 200, 3E9R APT 

ee “si SPOINT TO APT INDIRECT AODRESS PNTR. 

2234 C0004 001000 SAPTHOR ;;POINT TO APT HEADER BLOCK 

2235 001050 ;RESET LOCATION COUNTER 

ee . ASHE H EAE HE EGE EERE ESE 

ee {Setup APT PARAMETER BLOCK AS DEFINED IN THE APT-POPL! DIAGNOSTIC 

ee38 SINTERFACE SPEC. 

€240 901000 THD: 

2241 001000 900000 SHIBTS: .WORD :;7WO HIGH BITS OF 18 BIT MAILBOX ADDR. 

cave D0100e O0lse0 ADR: .WORD SMAIL  ;;ADDRESS OF APT MAILBOX (BITS 0-15) 

2243 001009 901130 STSTM: .WORD 1130 5 ;RUN TIM OF LONGEST TEST 

e244 001006 903410 SPASTH: WORD 3410 ¢ RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
; 2245 951010 003410 SUNITM: .WORD 3410 =; ;AODITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
| 2248 001012 900930 WORD SETENO-SHAIL/é ; s3LEN TLBOX~E TABLE (WORDS) 

2247 120210 AVECT1=120210 PRI=5 
| Bede 177440 ABASE=177440 
| 2248 000377 ADEVN=000377 
{ 


| 
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DZRENB. CMS ON TAGS 
2250 .SBTTL CUMMON TAGS 
Sane 3% EPPELERESEHLSPSHRHS SSSA PEPE FEELERS EPEF EL PEE PIE SEL ELEEG EG OEE GEES 
e253 sBTHTS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
2essS . 9 ” 
901100 -21100 “A 
ee? 901190 sane SCNTAG: . . ::START OF COMMON TAGS NA 
2259 90110 990 STSTNM: -BYT 0 : CONTAINS THE TEST NUMBER fe 
ow = 7? RROR 
sop) cabbie posse SICNT: . + ONTAL SUBTEST ITERATION COUNT 
2262 001108 00000 SLPADR: .WORD 0 ?:CONTAINS SCOPE LOOP ADDRESS 
2263 901110 SLPERR: .WORD 0 ::CONTAINS SCOPE RETURN FOR ERRORS 
2264 001112 SERTTL: “WORD «0 CONTAINS TOTAL ERRORS 
2265 001114 SITEMB: .BYTE 0 ::CONTAINS ITEM CONTROL 
2266 001115 061 SERMAX: .BYTE 1 js CONTAINS MAX. ERRORS PER TEST 
2267 001116 999000 SERRPC: “WORD «=O *:CONTAINS PC OF LAST ERROR INSTRUCTION 
' 2968 OO11 SGDADR: :WORD 0 CONTAINS ADDRESS OF *GOOD’ DATA 
5553 Boils pee sepeor: -Hoee Og tT ONTAING “BOODT DATA SOR 
eel 001126 900000 SBODAT: .WORD 0 *:CONTAINS ’BAD’ DATA 
5555 Soitss = Boosen WORD - agecstnet Sugeest 
| 2274 OB: . 0 ;;AUTOMATIC MODE INDICATOR 
| e275 atte ot STNTAG, ‘Bite 6 s TNTERRUPT MODE INDICATOR 
| 2277 051149 177570 SUR: -HORD, DSWR s;ADDRESS OF SWITCH REGISTER 
| 278 901142 177570 DISPLAY: .W DDISP t:ADDRESS OF DISPLAY REGISTER 
| 2279 ori 177560 STKs: 177560 s5TTy KBD STATUS 
aT 601150 177ee8 Sips: 177864 ;;TTY PRINTER STATUS REG. ADDRESS 
| pepe 001152 177566 STPB: 177566 2: TT BUFFER REG. ADDRESS 
| pegs 001154 009 SNULL: .BYTE 0 ?:CONTAINS NULL CHARACTER FOR FILLS 
| pee4 001155 O02 SFILLS: .BYTE 2 > CONTA NS ® OF FILLER CHARACTERS REQUIRED 
| Bes 001156 Ole SFILLC: “BYTE 12 + RCERT ILL CHARS. AFTER A “LINE - 
eee 0011 STPFLG: .BYTE 0 :°TERMINAL AVAILABLE” FLAG (B1T<07>=0=vES) 
oo. a eS TONER PgREEOT Uae SBTAINED 
oe8s 001162 o00000 SREGO: .WORD 0 CONTAINS Eee cnn 4s 
| $9] ant veined a ee Contains (SRE GAD) 44) 
| pe92 001170 00000 SREG3: :WORD O CONTAINS (($REGAD) +6) 
| p293 001172 00000 : - WORD : js CONTAINS (($REGAD)+10) 
2294 001174 poo909 GS: . *:CONTAINS ((S$REGAD)+12) 
| 2295 001176 SREGb: .WORD 0 CONTAINS (($REGAD)+14) 
eee 001209 NN0000 SREG7: - WORD : ss CONTAING ( (SREGAD)+16) 
| $526 Sol wit SREGIO: 9 S OONTAINE (¢SREGaD 282) 
| 2299 001306 12: “WORD + CONTAING (($REGAD) #34) 
g200 o01210 SRE 13: - WORD 0 ss CONTAING ( (SREGAD) +86) 
1 OOlel 14%: . 0 ssCONTAINS (( )+30) 
e202 001214 SREGIS: . 0 i CONTAINS (($REGAD) +32) 
O0ie16 ) Gig : 0 *:CONTAINS ((SREGAD) +34) 
5204 001 0000 G17: . 0 *:CONTAINS (($REGAD)+36) 
| 2305 OO0l222 o00000 G20: .WORD 0 CONTAINS (($REGAD)+40) 
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SREG21: -HORD : + CONTA NS (($REGAD)+42) 
SREGoe: .WOR CONTAINS (($REGAD) +44) 
sréGe3: -WORD «0 CONTAINS (($REGAD) +46) 
: .WORD 0 CONTAINS (($REGAD)+50) 
1234 SREGCS: .WORD 0 *: CONTAINS (($REGAD) 452) 
SREGob: .WORD 0 t: CONTAINS ((SREGAD) +54) 
1240 SREGO7: .WORD 0 CONTAINS (($REGAD) +56) 
SREG3O: .WORD O *:CONTAINS ((SREGAD) +60) 
1244 SREG31: .WORD 0 *:CONTAINS ((SREGAD) +62) 
SREG3e: .WORD 0 t:CONTAINS ((SREGAD) +64) 
eS fees ce cEaMTate (cHeee 38 
Ba Bus ee fe ee eae {Bees 
Jt $ » $5 n 
si} blest Shaan SEs: “Ho 8 GouTaIne (CSE) 76) 
2322 bole6s 000000 STNPI: WORD 0 ::USER DEFINED 
2324 rata Bon000 STNe a: -WORD OQ ; ;USER DEFINED 
2325 OO0le72 o00000 STMPY: <WORD 0 >:USER DEFINED 
232 001274 O00000 STMPS: <WORD 0 >;USER DEFINED 
2327 001276 oooo00 STMP6: <WORD O >;USER DEFINED 
2328 O01 000000 STMP7: .WORD 0 USER DEFINED 
2229 001302 099000 STMP1O: .WORD 0 > :USER DEFINED 
53, Borshe pooeen SPE: 0 eee Ap ECON ERROR ABGREGS 
2332 001310 177607 000377 $BELL: .ASCIZ <207><377><377> :;CODE FOR BELL 
2333 001314 077 SQUES: ASCII /77 QUESTION MARK 
2334 901315 O15 Haste "ASCII «15> CARRIAGE RETURN 
2235 001316 o00012 SLF: .ASCIZ <1l2> *:L INE FEED 
2336 ; jeteeendeneeseastttnsssecensseetieneseeseenensesuenesescesenes 
5334 om: 
oa : Se ee 
2341 001320 SNAIL: : APT MAILBOX 
2342 001320 oo0000 SMSGTY: .WORD AMSGTY ;:MESSAGE TYPE CODE 
2343 001322 o00000 SFATAL: -HORD AFATAL ;:FATAL ERROR NUMBER 
2344 O013e% O00000 STESTN: . ATESTN ;;TEST NUMBER 
2345 001326 000000 SPASS: . WORD APASS ;:PASS COUNT 
gate 001330 900000 SDEVCT: :WORD ADEVCT ;;DEVICE COUNT 
S3ua poised | BODeEH Sed: “toe BeaeAD it iheSsaee ADDRESS 
2349 001336 O00000 SMSGLG: .WORD area :3ME CENGTR 
e350 601340 SETABLE: * APT ENVIRONMENT TABLE 
2352 001341 oS Ha : BYE CENV 33 T MODE BITS 
2353 001342 900000 SSWREG: .WORD BSUREG * APT SUITCH GISTER 
oiee arenes Bpp088 StBLOP: “WORD ACPUOP +=:CPU TYPE, OPTIONS 
2256 + i BITS 15-11=CPU TYPE 
2357 i Ly , 11705202, 11720203, 11/40=04, 11/45=05 
2258 if 11/70= *pgsb7 OE10 
2359 +" BIT 10=REAL TIME’ CLOCK 
2360 +" BIT S=FLOATING POINT PROCESSOR 
2361 4 BIT B=MEMORY MANAGEMENT 
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2368 901360 999 $MAMS1: .BYTE AMAMS! ;;HIGH ADDRESS,M.S. BYTE 
1351 SMTYP1: .BYTE AMTYPI M. T i. 
2364 :# iat TYPE BYTE == (HIGH BYTE) 
a0 +i 309 NSEC coRe=001 
356 % 300 NSEC BIPOLAR=002 
236 * # MOS=003 
2368 001352 900000 $MADR1: .WORD AMADRI ;;HIGH ADDRESS, BLKal 
2369 + ’ MEM. LAST BOR. =3 BYTES, THIS WORD AND LOW OF “TYPE” ABOVE 
2370 001354 000 $mamS2: .BYTE AMAMS2 3 sHIGH S,4.S. BYTE 
2371 001365 000 SMTYPe: .BYTE AMTYPe ::MEM. 
Be ies Rp Beice: ave eres Menem e EE 
5333 oes 000 SMTYP3: BYE AMT 3 i iNeN TYPE Bika” 
2375 OO0l362 oo0co0 SMADR3: .WORD AMADR3 ;:MEM.LAST ADDRESS, BLK#3 
£376 001364 000 SMANSY: “BYTE AMANS : HIGH SS,M.S.BYTE 
001365 000 SMTYP4: .BY AMTYPY 3:MEM. hy" 
2378 001366 o00000 SMADRY: DRY $:MEM.LAST ADDRESS, BLKs4 
001370 120210 SVECTI1: .WORD AVECTI i INTERRUPT VECTOR#1,BUS PRIORITY#1 
2380 001372 OO0000 SVECT2: .WORD AVECT2 INTERRUPT VECTOR#2BUS PRIORITY# 
2381 001374 177440 SE: .WORD : BASE RODRESS OF EQUIPMENT UNDER TEST 
2382 001376 600377 SDEVN: ow >:DEVICE M 
2383 001400 SETEND 
2384 -MEXIT 


we ere owe. wn 3 renee ee ee ne ee ne 


eee 
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2385 .SBTTL ERROR POINTER TABLE 
HTH S TAB NTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
5384 SHE Ine ae conn S OBTAINED BY UEING Re INDEX NUMBER FOUND IN 
2389 HeLOCBTION STEN THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
2390 t#NOTEL: F SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC). 
2391 : #NOTE2: Fach ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
2393 +% EM 3 POIN TS TO THE ERROR MESSAGE 
2398 tk OH ?:POINTS TO THE DATA HEADER 
2395 x DT ?:POINTS TO THE DATA 
2396 1% OF POINTS TO THE DATA FORMAT 
2397 
2398 
3333 001400 SERRTB: 
2401 -ERROR 1 sUNIBUS PARITY ERROR 
2402 001400 OS&E4S EMI 
2403 001402 061740 DH100 
2404 001404 07100 
2405 001406 063640 DFOL 
supp ERROR 2 sNON-EXISTANT MEMORY 
2408 001410 056671 EMe2 
2403 001412 061740 DHiO0 
| 2410 1914 DT1 
| ei 001416 063640 OFOI 
2413 ERROR 3 ;NON-EXISTANT DRIVE 
2414 001420 OSE715 EM3 
241S 001422 061740 DH100 
2416 001454 063524 DT100 
ul? 001426 063640 DFOI 
| e41s ERROR 4 ;UNIT FIELD ERROR 
| 2420 901430 EMY 
| e421 001432 061740 DH100 
| puee 001434 07100 
| ates 001436 063640 OFOI 
| pues “ERROR S ;SUBSYSTEM TIMEOUT 
| «BUS> Botaus petra Bon 
| 5056 Colusa pease 188 
6429 001446 063670 DFO2 
i e430 
| Sys 1450 ioe & SERCON PARITY ERROR 
i te H 
| -5g35 Solves berza fo0 
| 9434 001454 063524 07100 
| 2435 OO1456 063724 DFO3 
| 5a ERROR 7 
ae 01469 057064 N7 ;DRIVE DETECTED PARITY ERROR 
39 001 1740 DH100 
| 2440 001464 063524 OT100 


ERROR POINTER TABLE 
DF O03 


2441 001466 
ede 
;ERROR 10 
M10 


;AC LOW 


7m 


Ease 
8 
x 
F: 
4 § 
a 
=a 3 


ODREN-B = RKI1/RKOG SUBSYSTEM VERIFICATION : PART 2  MACYLI 27(732) O3-NOV-76 21:43 PAGE 73 
DZRENB. CMB 
2450 001500 ? SPEED LOSS 
2451 001502 061740 DH100 
001504 07100 
001506 063670 OFO2 
o4s4 
2455 “ERROR 12 
gieb 001510 057102 EM12 : ILLEGAL FUNCTION 
001512 061745 DH100 
2458 001514 063524 07100 
2459 001516 063670 OF O2 
sue -ERROR 13 
- 901520 057123 £M13 sPROGRAMMING ERROR 
001522 061740 DH100 
001524 063524 07100 
2465 001526 063640 DFOL 
ee *, on ee ZERROR 14 _ sNON-EXISTANT FUNCTION 
| Sues polese Seioue OH100 
2470 001534 063524 DT100 
eu? 001536 063670 DFO2 
| pu73 ERROR 15 
aie 001540 057173 EMIS :DRIVE TYPE ERROR 
75 001542 061740 DH100 
| BY7— OO1544 O53524 DT100 
a 001546 063670 DFO2 
573 sERROR 1 
001550 057214 Emi6 :FORMAT ERROR 
2481 001552 061740 DH100 ’ 
2482 001554 Obss24 07100 
| 2483 001556 0636 OF 02: 
Supe ERROR 17 
2486 OO1S60 057231 £M17 ;WRITE LOCK ERROR 
| sig? 001562 061740 DH100 
| 001564 063524 07100 
: eie9 001566 063670 OFO2 
gual “ERROR 20 
| ee 901579 957252 Eri20 sDRIVE UNSAFE 
2493 0157¢ 061740 DHIO0 
15 Obs5e4 07100 
001576 0636 OFO2 


? 
F 





} 
' 
i 
' 


(ee ae ee ee ee eee 


ee aces ee aeons emer nee ce 


ee ee ee ee 
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;ERROR 21 


2488 O01600 057267 EMe1 sSEEX INCOMPLETE 
2499 Oo 1602 061740 DHIO9 
Lb 
eS) Bpiebe Desero Brag 
-ERROR 22 
2504 001610 057307 EM22 sCYLINDER OVERFLOW 
2505 Oolbi¢ 061740 bH100 . 
Seq? oblele Brae” 
Seng sERROR 23 
2510 901620 057331 Ee ILLEGAL CYLINDER 
ae 
sei4 east Tl 
e513 00.$26 053670 OFO2 
2515 “ERROR 24 
2516 001630 057362 EMo4 “DRIVE OFF TRACK 
2517 001632 061740 DH100 
2518 001634 063524 DT100 
519 001636 063670 02 
25el “ERROR 25 
2522 001640 os7402 EMoS ;DRIVE TIMING ERROR 
25e3 O01642 061740 DH100 
2524 OO1644 063524 DT100 
2525 O01646 063670 OFO2 
sect -ERROR 26 
gee8 001650 057425 EMC DATA LATE 
1 061740 DH100 
001654 063524 DT100 
2531 001656 063670 DFO2 
5e3¢ ERROR 27 
2534 001660 057437 ? sCONTROLLER TIMEOUT 
2535 O01662 061740 DH100 
2536 O01664 063524 07100 
sou 001666 063670 DFO2 
e533 ERROR 30 sOPERATION INCOMPLETE 
001670 057462 §M30 
2541 001672 061740 DH100 
2542 001674 063524 07100 
2543 001676 054000 
cea “ERROR 31 
Seu 001700 057507 £M31 sHEADER VRC ERROR 
2547 001702 061740 DH100 
2548 001704 OT100 
eeu 001706 064000 DFOS 
bbl ERROR 32 
2552 001710 057530 EN32 sDATA CHECK ERROR 





DZREN-B = RK611/ 
OZRENB. CNS 


2553 
= 
SS 
= 
ea 


Sees 


BR 


Ee te CE CE CE CL I CL CO CO ECC 


ERROR POINTER TABLE 
061740 
063524 
064034 


op 
“~~ 
re 
oO £r 


057551 
961740 
063524 


8888 888 


Saas 


= p< pe pe 


few be pe hee 


dade «2282 sad 
2 


Se a a 
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DH100 
DT100 
DFO? 


“ERROR 33 
§M33 
OH100 
07100 
OF 10 


ERROR 34 
EM34 


' ;WRITE CHECK ERROR 


;DATA MISCOMPARE(S) 


bas ;NO DRIVE RESPONSE-UFE 8 NXD 


bras sDRIVE ERROR WILL NOT CLEAR 


sDRIVE STATUS CHANGE WILL NOT CLEAR 


ag 


;ATTENTION BUT NO STATUS CHANGE OR FAULT 


soe 
Res 


j 


;ATTENTION BUT DRIVE NOT AVAILABLE 


OR 
Fe sATTENTION WHEN NOT EXPECTED 
DT100 


;ERROR WHILE GATHERING DRIVE STATUS 





DUETS SRR EoRE SBM REDE RN NN ee eeEE ree ee 


o 
o 


EERes 
Rants 


002026 


002030 06 
002032 
002034 


002036 


002040 
O0e04e 
002044 
002046 


Jue USU 


oo fee 


Bese BERS 
R2RS 


mere 
CrcVMoO 


Soars 


Rane 
Beis | RRR 
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OZRENS. CMS BER SES EN TER THBLE! 


064134 


















oF 12 
“ERROR 44 
EM63 
DH100 
07100 
OF 12 


;CLEAR CONTROLLER DID NOT CLEAR ERROR 


;ERROR 4S 
ENe4 ;NO ATTENTION IN ATTENTION SUMMARY REG 


“ERROR 46 
EMS ;UNSOLICITED ATTENTION 


-ERROR 47 
EM&6 UNEXPECTED DATA TYPE ERROR 


-ERROR SO 
ENG? sATTENTION DID NOT RESET WITH CLEAR 
€N70 ;SUBSYSTEM CLEAR DID NOT CLEAR DRIVE ATTENTION 
;MULTIPLE DRIVE SELECT 


Eres SABREVIATED HCE ERROR 


;OPERATION INCOMPLETE ERROR 











2665 
2666 







2701 





3 
Stal 


o 
o 
Sits 


tas FESS Rane Ess 


Ricks 


Rune 


| a hs Hu Se ee 
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i 


“ERROR SS 
EM31 


DH100 
DT100 
DF 13 


-ERROR S6 
ENS 


ERROR 57 
EMS 
DH100 
07100 
OF16 


-ERROR 60 
‘te 

0 
ERROR 61 
ENE] 


oo 


sERROR 63 
6 


0 
DT602 
DFeS 


“ERROR 64 
EMb3 


DH100 
DT100 
OF 


MACYL1 27(732) 
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;ABREVIATED HVRC ERROR 


32 TIMEOUT ERROR 


;@ND LEVEL IN SUBSYSTEM TIMEOUT 


;ERROR IN RECAL FOR RECOVERY 


;ABORT MESSAGE 


;CYLINDER MISCOMPARE 


;DATA ERROR WORDS 


;CLEAR CONTROLLER DIC NOT CLEAR ERROR 


-;NO ATTENTION IN ATTENTION SUMMARY REG 


;UNSOLICITED ATTENTION 






a i a a ES A TS 


perens A ental *, SUBSYSTEM VERIFICATION : PART 2 MACY11 27(732) O3-NOV-76 21:43 PAGE 78 


ages 


ze 


JASSASSSEGEERR 


002252 
002254 
002256 


ERROR POINTER TABLE 


061740 DH100 
063524 OT100 
063670 
“ERROR 67 z 
6 12 EMG sUNEXPECTED DATA TYPE ERROR 
1740 0H100 
063524 07100 
DFO2 
ERROR 70 
060545 ENG? ATTENTION DID NOT RESET WITH CLEAR 
061740 OH100 
063524 07100 
063570 DFO2 
-ERROR 71 
£N70 SUBSYSTEM CLEAR DID NOT CLEAR ATT 
061740 DH100 
063524 07100 
DF G2 
“ERROR 72 
060653 EN71 DATA LATE WHEN UNLOADING HEADER 
061740 H1O0 
063524 T100 
70 OFO2 
ERROR 73 
060713 EN72 ;CONTROLLER ERROR DURING DRIVER SERVICE 
061740 DH100 
063524 DT100 
063670 DFO2 
“ERROR 74 
§N73 ;DRIVE DETECTED PARITY ERROR 
061740 DH100 
063524 DT100 
063670 DFO2 
vo “ERROR 75 
051016 EM74 ; UNDEFINED ERROR 
1740 DH100 
063524 DT100 
063670 OF O2 
ERROR 76 
061036 iffe ;MARKING SECTOR BAD MESSAGE 
000000 0 
o00000 0 
000000 0 
ERROR 77 
61066 EN76 ;BAD DATA VERIFICATION WITH READ 





oe > er re ne es ee re 


A Oe 


ee 
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DZRENB. CNB 


PERE CI teen 


03 030003 03 0360 00 03 GOED 
ee eed ed ed ee eos 
WONTU£WMUeH-O 


pstsiitsinitsis 


002366 


002370 
an 
are 


064410 


061150 


2810 


4450 


OF 21 
“ERROR 100 
£N77 


- 
e3 


“ERROR 101 
N77 

DT601 

OF23 
“ERROR 102 

M100 
OT601 

DF23 
“ERROR 103 
EM101 

DHEOY2 

OTOL 

DFe4 


pEnROR 104 
ERROR 105 
;ERROR 106 
107 


;ERROR 110 
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sRETRY SUCCESFUL MESSAGE 
;ANOTHER RETRY SUCCESSFUL MESSAGE 
;RETRY UNSUCCESSFUL MESSAGE 

;NO VALID HEADERS IN TRACK JUST READ 
;BSE ERROR ON SECTOR NOT LISTED AS BAD 
:TIMED-OUT ON READ HEADER 

;TIMED-OUT ON SEEK 

;DRIVE SIEZED BY OTHER PORT, 


;"DATA MISCMPR WHILE BAI SET” 











StS 


RRR ee 


14 


a 


See oe: Boe 


rp 
Aid 
Ti = 


t 


he Ge Be i Be B 
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ROL 


ERROR POINTE! 


a 
& 


g 
én 


sERROR 111 
z s"NO NEM WHEN EXPECTED” 


liz 


3 
$ 


art Mb 
pe 
“B85 


s"INTRPT WHEN CNTRLR NOT READY™ 


3 
$ 


113 


m 
= 
ee 
= 


3"NO ATT'N ON SEEK" 


% BOW 
aa See 


il4 
;ORIVE’S CYLINDER INCORRECT 


a 


3 
$ 


115 
;TYPE ADRS OF DATA MISCOMPARE(S) 


Oqocr: 
ig 
- 

~ 


116 


a3 
3 


sDATA MISCOMPARE (11/70) 


AAP ere 


Tue. 
@8S 


3 
g 


117 


pee] 2 


;PART OF DATA NISCOMPARE 


3 


;ERROR 120 
113 ;ABORT- CAN'T READ BSF 


lel 


- ERROR 
EM114 sKT11 FAILURE 
DH100 


“ERROR 122 
Em115 :MEM PARITY ERROR 


ee eee ee ee ep er ete One ee ee oe ee 





a 
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1746 DH} 
OF 31 


4 
3S 
9 


fa 
: 


RLES Eee gad ad ciciccinria isa vinta aoa ie ietee 
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SYSTEM VERIFICATION : 
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GNMENTS IN THE RKE11 REGISTERS 












Bit ASSIGNMENTS IN THE RKE11 REGISTERS 
res 


!CERR ! OI 1 SPAR! CFMT § CTO ! COT ! SAI7 ! GAlé ! 
> RW? RO tf RO f RW? RO iT RW ERW i Rw 


ROY! JE ' SPARE! FY ' F3 ! Fe ! Fl ! GO ? 
; RW! RW! RW! RE RW! RW RE RW! 


0 §RO #RO #$RO #RO #$RO trRO tro } 


; F 6 5 4 3 2 1 0 


POR ¢ IR ! CLR ! BAI ! DESL! Dse ! DSi ! DSO ! 
;RO $ RO ! WO SRW SRW PE RW ERM ER! 


3RKOC es oe CYLINDER) 
1S 13 le ll 10 9 8 


CCR Ra CREE 


;0C7! Cb ! OCS ! C4 + pC3 !Dc2 !0Cl !OCO ! 
; READ ONLY 3 


. 15 12 ll 10 3 3 
> NU ! UN ! UN ! UN ! 'tTae ! TAL ! Tao ! 
9 READ ONLY 8 


PUN ! UN ! UN ! SA ! sag !SA2 ! Sal ! SAD ! 
$ READ ONLY ; 





—— 


BEReNB- che BIT ASSTN 


CR 6: 


nae 


BcVP AP VT Anneli itis ee RMR RRBs dg 


YSTEM V tea 
MENTS 





ATION : 
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RKb11 REGISTERS 


ere ee 2 eee 









:RKDB (DATA BUFFER) 
; 1S 14 13 


; 087! 086 ! 08S ! 064 ' 083 ! DB2 ! OB1 ! DBO ! 
; READ/WRITE ; 


i009 8 
—y¥ ! ATNS ! ATNS ! ATNY ! ATN3 ! ATN2 ! ATNI ! ATNO ! 
: READ ONLY 1 


:F 6 5 4 3 2 1 0 


UN 1 OF6 ! OFS !OF¥ ! OFS ! OF2 ! OFL ! OFO ! 
. ? - READ/WRITE : 


;RKWC (WORD COUNT) 
; 15 14 13 


*WC1S ! WCI4 ! WC13 ! WCl2 ! WCLL ! WC1O ! WC9 ! wee ! 
READ/WRITE i 


fWC7 ! WO FCS WOH ft wca $ uC2 ! Wl ! CO f 
} READ /WRITE 


13 le il 


ipa?! BAB ! BAS ! AY ! BAG ! BAe ! BAL ¢ BAO ! 
; READ /URITE 
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BSReNe chs Bt Ase tennents In RKB11 REGISTERS 
3003 sRKER (ERROR REGISTER) 
aang SRS. a . l _ Bin 
a : DCK ! UNS OPI! OTF WLE ! IDRE ! COE ! HYRC ! 
‘ RE 
3009 ; 
3010 ee ee . cae a Eons _ ao. Re BES . ae 
3012 : BSE ! ECH ! DTYPE! FMTE ' DRPAR! ILF ! SKI ! ILC ! 
1 : READ ONLY i 
se —ldasaeneineieac ici aaieaaien nica ainian alee tae nee emma 
zie sRKDS (DRIVE STATUS) 
301 : 14 1 ll 10 3 3 
si *SVAL ! DSC ! PIP ! SPON! WRL ! UN ! UN ! DIP ! 
2020 : READ ONLY i 
s ; ? 6 5 4 3 2 1 0 
3025 :DRDY ! VV ! DROT ! SPLS ? ACLO ! OFSET! UN ! DRA ! 
3026 ONLY 
302700 —<“‘“‘i‘“‘C™SOC a MR RRM MMMM RRR R MMMM MMMM RRSSeeeeeeesese 
ase sRKMR1 (MAINTENANCE REG 1) 
2030 : 15 13 le ll 10 3 g 
| 3035 *RD 1 WRT ! ECCH ! PCD ! PCA ! MEWD ! MERD ! MCLK ! 
3033 :GATE ! GATE ! i i i i ; 
| 3034 : READ ONLY i READ/WRITE ! 
3035 a aenaameeneeeneaeennennememeeamennnennmemnmnnaass 
2037 ; 7 £ g 4 3 2 1 0G 
| 2039 ‘MIND ! MSP ! DMD ! PAT !MS3 !MS2 !MS1 ! MSO ! 
3040 : READ/WRITE i 
3041 " asteneneeneneaetenenneeneteetnenennne tanta eeeeennnem 
i 
j 
! 
| 
| 
| 





GO? 
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3042 ;RKECC/PAT 
; 15 14 


{EPA7 ! EPAG ! EPAS ! EPAY ! EPAG ! EPAc ! EPAL ! EPA ! 
READ ONLY 


;RKECC/POS 
s i i4 


; UN ! UN ! UN ! EPOL2! EPOLI1! EPOIO! EPO9 ! EPOS ! 
3 READ ONLY : 


7 6 5 4 3 2 1 0 


{EPO7 ! EPOG ! EPOS ! EPO4 + EPO3 ! EPO2 ! EPOI ! EPOO ! 
; READ ONLY : 


;DRIVE STATUS INFORMATION 


;LINE A MESSAGE 00 
; 1S 14 13 le 11 10 9 8 


; PAR! OSC ! PIP ! SPON ! WRLK ! OFFON! FMT ! DRTP ! 


PERSE RRAKA ac diid a anuuni nau y eee: 








a ee en nee | ne ee re ne eee = 


ee 


po ree ee 
' 
: 
‘ 


perenne 


ee 


WWW WIWWIWWWWIWWWWIWWIG) 
See obetrs anapetet erst atatstatataiss 
BOIRREBRH 


0-0-2 62 20 phe ee 
NOUN £WwNH- oO 
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Lie B MESSAGE 00 
1S 14 13 le 1 10 3 8 


; 7 6 5 4 3 2 ! 0 
> FLT! ACLO! IVIA! UN ! UN ! WN! O ! 0 ! 


LINE A MESSAGE O1 
> 45 14 1 12 il 10 g 2 

: PAR ! UNLDG! RTZ ! LDG ! REV Fu { SPEED! CART ! 
: iwos : inps i OK ! PRES } 


;_ 7 6 5 4 3 rs 1 0 


DOOR ! BRUSH? HEADS? TRK ! UN ! ORIVE SELECT CODE $ : 
sLTCH | HOME = HOME ® FOLOW! ° 


Lie B es ot 

15 13 lé 11 10 3 8 
PAR ! ! SERVO! LIMIT! SEEK ! PLO ! DIBIT! INDEX! MULTI! 
i BRAKE! ON SKINO MO! ERR $ ERR! ERR !HD SEL! 


:- F 6 5 4 3 2 1 0 


{HEAD 'WR GTE!WR CUR! SEC! MU! Wo! Of 1? 
SFAULTIAND NO!AND NO! ERR ! i ; 
: ” EXISTONEWR GTE! : i i i 





DIR6N-B 
EERENG ChB 


WO)WIOIWIOIWIOIG)0) 0 WI IOI) 0 0 I 0 0 dC dd GI Gd GI GJ J GI CII GI CI CI GD 
BP A AS tt a NT AR at Ad the ect eet thw aittetet tn dst it tat ited ttt ert pd 


“ 
w 
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;LINE A MESSAGE 10 
. 1S 14 ee es ee 


; 7 6 5 4 3 2 ! 0 


CYLINDER DIFF/OFFSET VALUE! NU ! DRIVE SELECT CODE ! 


;LINE 8 | tae i 


; 15 le il me 4 8 
; PAR! ALIGN! NU ! CYLINDER ADDRESS . 
! SIGN $ 3 


{CYLINDER ADDRESS! UN ! UN! 1! 0 ? 
;LINE A MESSAGE 11 
1S 14 13 


; PAR ! DRIVE SERIAL NUMBER : 


; 7? a 5 4 3 2 1 0 


* DRIVE SERIAL NUMBER ! DRIVE SELECT CODE ! 


Lie B eae ll 

15 13 le ll 10 3 8 
; PAR! NU ! NU $ DECODED HEAD ! SECTOR! 
3 : : 8 ADDRESS ! COUNT ! 


RKO6 CONTROLLER REGISTER DEFINITION 


0 s CONTRO. AND arerys REGISTER 1 
4 WORD COUNT REG 

4 ;BUS ADDRESS ais ER 

6 ;DESIRED TRACK SECTOR REGISTER 
10 ;CONTROL AND STATUS REGISTER e 
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DZR6NB. CNS ONTROLLER REGISTER DEFINITION 





3174 — 12 RKDS= te :DRIVE STATUS REGISTER 
HB ger i EE EE BES Pcie 
3178 000020 RKOCYL= 20 ;DESIRED CYLINDER REGIS 
3123 eae RKRRis S¢ TRTENANEE REGISTER 1 
3181 34 RKMR2= 34 . ;MAINTE REGISTER 2 
1 RKMR3= 36 ; MAINT ISTER 
3183 000030 RKPOS= 30 SECC POSITION INFORMATION 
3184 RKECPS= 30 SECC POSITION INFORMATION 
3185 90 PAT= 32 € PATTERN INFORMATION 
3186 000032 RKECPT= 32 ZECC PATTERN INFORMATION 
3188 SBTTL DRIVE COMMANDS 
3190 000101 SELDRV= 101 sSELECT DRIVE 
3191 900103 PACK= 103 ‘PACK ACKNOWLEDGE 
3192 000105 CLEAR= 105 :DRIVE CLEAR 
3193 000107 OAD= 107 UNLOAD 
3194 000111 SRTSPL= 111 ‘START SPINDLE 
31% 000113 RECAL= 113 : RECALIBRATE 
1% 000115 = 115 : OFF 
He BY Satie i ES oe 
ee URDATS 133 iite Date, 
3201 000127 WRHEAD= 127 ‘WRITE HEADER AND DATA 
3202 000131 WRICHK= 131 *WRITE CHECK 
son ; THE FOLLOWING ARE NOT DRIVE COMMANDS BUT ARE USED BY THE DRIVER 
3205 : TO SIMULATE A SPECIFIC DESIRED OPERATION 
oo o0014¢ RELEAS= 140 :RELEASE DRIVE 
ai booed ROALD: 164 READ ALL HEADERS Ou 
32710 000176 CONCLR= 176 s CONTROLLER CLEAR (BIT 15 OF CS1) 
3311 000177 SUBCLR= 177 UBSYSTEM CLEAR (BIT S OF CS) 
ele 000200 INTR= 300 s OENERATE INTERRUPT TO CPU 
3614 ; DRIVER ISSUED SERVICE COMMANDS 
3216 00001 DR.SEL= 001 sDRIVE SELECT 
| 317 000005 OR. CLR= 005 ;DRIVE CLEAR 
| 3219 .SBTTL CONTROL AND STATUS REGISTER 1 BITS 
| sr 00001 GO= _—-BITO :GO BIT 
| 3555 ave ibys BIT? HEOWTROLLER READY 
i 3204 000400 BAlé= 8178 BUS ARE BIT 1 
| 356 isan A SRORTROCTE Bit i? TYPE (O=RK 
2) ied eos BIT11 SUR ti heb OUT WAITI 
| 2229 010000 CFMT= BIT12 CONTROLLER SORIVE FORMAT (O=22 SECTOR, 1=20 SECTOR) 
| 
| — oon -~ 
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DERENB CHB CONTROL. AND § TER 


TATUS REGISTER i BITS 
3230 920000 SPAR= BiT13 DRIVE 8u Bus PARITY ERROR DETECTED BY CONTROLLER 
ce 109800 Ore ae Bitte PRI YROLLER BERD ROR 
3233 l CCLR= B1TI5 CONTROLLER CLEAR 
3235 : THESE BIT DEFINITIONS ARE USED FOR ADDRESS 
3e38 : THE HIGH BYTE OF RKCS1 
3238 000001 8.BAlb= BITO sBUS ADDRESS BIT 16 
$239 oo00d2 B.BAl7= BITL ;BUS ADDRESS iT 17 

000004 B.CDT= BIT ‘CONTROLLER DRIVE TYPE (O=RKO6) 
seul 000920 B.CFMT= BITY CONTROLLER DRIVE FORMAT (O=22 SECTOR, 1=20 SECTOR) 
3243 } .SBTTL CONTROL AND STATUS REGISTER 2 BITS 
aed 000007 =7 ;MASK FOR DRIVE SELECTION CODE 
3246 000019 DESL= 8IT3 :DESELECT OR RELEASE DRIVE IN BITS 0-2 
3247 RLS= =—«BIT3 *DESELECT OR RELEASE DRIVE IN BITS O-2 
3248 BAI=  BIT4 : SS INCREMENT INHIBIT 
3249 CLR= BITS *CLEAR CONTROLLER ALL DRIVES 
3250 SCLR= BITS CLEAR CONTROLLER ALL DRIVES 
3251 0001 R= BIi6 : READY 
3252 000200 = BIT? jOUTR T READY 
3524 eaten Hes errs MULTIPLE RIVE ¢ ELECT 
a ‘i NERS BIT * NON-EXI i CRE Ray 
3528 iver 2 se : TareNT ORT 
3258 020000 = BITI3 PARITY E 
3259 040000 WCE=  BITIY WRITE CHECK ERROR 
$260 100000 DLT=  &BITIS TE 
sebe .SBTTL ERROR REGISTER BIT DEFINITION 
3264 000001 ILc=  8BITO sILLEGAL FUNCTION CODE 

| 3265 -#ILF= BITO ILLEGAL FUNCTION CODE 
3266 I= 8BITi j SEEK oANCOnPLETE 

| 3567 000004 IlF= 81T2 Ve FUNC 
3268 000004 NXF= BIT ae Bat DRIVE UNCTION 
3269 900010 DRPAR= &1T IVE TECTED PORTE BUS PARITY ERROR 
3270 FMTES D1. ERROR 
3271 000040 DTYE= 11S DRIVE T eRe ERROR 
3272 000100 ECH= BITE 
3273 000200 BSE= «BIT BAD SECTOR ERROR 

| 3574 000400 HCRC= BIT8 *HEADER CRC ERRROR 
3275 000400 HVRCs BITS *HEADER VRC ERRR 
3276 001000 COE= BIT CYLINDER ADDRESS OVERFLOW ERROR 
se07 og2009 IDAE= BIT10 : INVALID ISK ADDRESS ERROR 

004 = Tli *WRI 
3279 010000 OTe=  BITIe2 sDRIVE TIRING ERR 
3280 d20099 = BITL3 ;OPERATION ( Ben INCOMPLETE 

| 3281 0400) UNS= T14 VE _UNSAF 

| 3282 100000 Ock= —BITIS ‘DATA CHECK 

| soe .SBTTL STATUS REGISTER BIT DEFINITION 

| 

| 













a 
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MB ATUS REGISTER BIT DEFINITION 


DZRENB.C 


forufurororororare 
jesse 


agus 


g 


tetas 


3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 


AASV RASIN INS 


ST 
000001 
pon 
000020 
900040 
000100 





DRA= BiTO sDRIVE AVAILABLE (CONTROLLER IS SET IF 
: THIS BIT IS RESET) 

OFST= 8BIT2 : DRIVE OFFSET 

ACLO= BIT3 “AC LOW 

SPOLSS= BIT4 SPEED LOSS 

DCLO= BITY :DC LOW 

DROT= 8BITS 5 DRIVE yi TRACK 

VV= BIT6 ; VOLUME VALID 

DRY= BIT? 5 DRIVE READY 

DRDY= BIT7 ;DRIVE READY 

DOT= BITS ; DRIVE TYPE (O=RKO6) 

WRL= BITi1 WRITE LOCK 

PIP= B8IT13 POSITIONING IN PROGRESS 

DSC= BIT14 ‘DRIVE STATUS CHANGE 

SVAL= BIT1S : STATUS VALID 

-SBTTL MAINTENANCE REGISTER 1 BIT DEFINITION 

MESMSK= 17 ;MESSAGE MASK 

PAT= BIT4 ;FORCE EVEN PARITY ON DRIVE BUS MESSAGE LINES 

DMD= BITS ‘DIAGNOSTIC MODE 

MSP= BIT6 : MAIN TENANCE SECTOR PULSE 

MIND= BIT7 : MAINTENANCE INDEX 

MCLK= BIT8 : MAINTENANCE at OCK 

MERD= BITS iMAIN NTENANCE ENCODED ie DATA 

MEWD= BITIO ;MEINTENACNE ENCODED WRITE DATA 

PCA= BIT11 j PRECOMPENSATION a 

PCD= BITl2 OMPENSATION DELAY 

ECCW= BITi3 Fee WORD IS BEING READ OR WRITTEN 

WRTGAT= BIT14 WRITE GATE 

RDGATE= BIT1S * READ GATE 


-SBTTL DEFINITION OF DRIVE STATUS BYTE O00 MESSAGE A 


S.DRA= BITS ;ORIVE AVAILIABLE 
S.VV= BIT6 ; VOLUME VALID 
a- ORYE BIT7 ; DRIVE 
- TYPE= BITS ;DRIVE TYPE 
S.FORM= BITS sDRIVE FORMAT 
S.OFF= BIT1O : OFFSET 
S.WRL= BIT11 sWRITE LOCK 
S.SPIN= BITle 
S.PIP= BIT13 ‘POSITIONING IN PROGRESS 
S.D0SC= BIT14 DRIVE STATUS CHANGE 


-SBTTL DEFINITION OF DRIVE STATUS BYTE O00 MESSAGE B 


S.ICYL= BITS ; ILLEGAL CYLINDER ADDRESS 

S.ACLO= BIT6 3AC LOW 

geflrs BI ‘ 
-ILF= BI ; ILLEGAL FUNCTION 

S.PAR= BI sDRIVE DETECTED DRIVE BUS PARITY ERROR 
-SKI= Bt 5 EK _INCOMPLET 
-WLE= ;WRITE LOCK ERROR 

S.SPLS= BI ;SPEED LOSS 
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. CMB DEFINITION OF DRIVE STATUS BYTE OO MESSAGE B 


OZRENB 


000769 
007000 





§.D0CL0= BiTle ;0C LOW 
S.DROT= BIT13 :DRIVE OFF TRACK 
S.UNS= BIT14 ;ORIVE UNSAFE 
-SBTTL DEFINITION OF DRIVE STATUS BYTE O01 MESSAGE A 
S.XDOK= BIT4 ; TRANSDUCER OK 
S.HDHM= BITS iH HEADS HOME 
S.BRHM= BIT ;BRUSHES HOME 
S.DOOR= BIT? ;DO0R INTERLOCKED 
§.CART= BITS RTRAGE INTERLOCK 
S.SPOK= BITS SPEED OK 
S.FWD= BIT10 ; FORWARD 
S.REV= BITI1 ; REVERSE 
§.LOAD= BITle s HEADS LOROTNG 
S.RTZ= BITI3 RETURN TO ZERO 
S.UNLD= BIT14 SEAS UNLOADING 
-SBTTL DEFINITION OF DRIVE STATUS BYTE O1 MESSAGE B 
S.SECT= BITY ;SECTOR ERROR 
S.WCLK= BITS SWRITE CLOCK AND-NO WRITE GATE 
S.WGAT= BITS ;WRITE GATE AND NO TRANSISTIONS 
S.HDFL= BIT? AD F 
-MHD= BITS MULTIPLE HEAD SELECT 
S.XERR= BITS ; INDEX ERROR 
§.DIB= BITC ;DIBIT ERROR 
S.PLO= BITI1 PLO ERROR 
S.NMOV= BIT12 ;SEEK AND NO MOTION 
S.LIMD= BIT13 sLIMIT DETECT ON SEEK 
S.BRKE= BIT14 ; SERVO-BRAKE 
-SBTTL COMMON MASKS 
M.DRV= 7 path CODE 
M.PAR= BIT1S ;PARITY 
M.ID= 3 ;BYTE ID 
M.CDIF= 17760 ;CYLINDER DIFFERENCE/OFFSET 
M.CADD= 17760 CYLINDER ADDR 
M.SER= 77770 DRIVE SERIAL NUMBER 
M.SECT= 760 SECTOR COUNT 
M.HEAD= 7090 sHEAD DECODE 


ee a ee 8 ne ee ee 
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DZRENB.C PARAMETER BLOCK ALLOCATION 
3384 .SBTTL PHRAMETER BLOCK ALLOCATION 
3386 : + Sheed ae Ra Ge 
338 4 i EOTMINDE —_ : 
ie YLINDER ADDRESS 2 
3383 3 ‘Ina “ 7, FORMAT, ORV TY REFSET ¢ 
1 #11 iB Bus Arapeee (LOW 16 Pe i 10 
3392 :* 13! WORD COUNT (2’S COMPLEMENT i j2 
3393 :# 15  #§ PROGRAM DRIV STATUS TNEGRATION i 14 
3394 :# 17 | COMMAND AND STATUS REGISTER i ig 
2395 :% 21 | COMMAND AND STATUS REGISTER 5 i 20 
3395 ?% 23 | WORD COUNT REGISTE ea! i 32 
3397 ?* 25 # BUS ADDRESS REGISTER i 34 
3398 :% 27 ~=§ DESIRED TRACK BND SECTOR i 36 
3399 e331 =! DESIRED ¢ i 30 
340 #33 #'A TreNTIoN al AND DRIVE OFFSET i 32 
401 ** 35  # ERROR REGI i 34 
3403 ya, i Messace LINE A STATUS BYTE 00 E 
Sup teu i Meseace CINE B Status BYE od i dp 
3405 :# 45  !§ MESSAGE LINE as 01 i 4y 
3406 :* 47 § MESSAGE LINE B 2 TATU ate 01 i ug 
| 3407 :* 51  # MESSAGE LINE A STATUS BYTE 10 i 50 
| 3408 :* 53  ! MESSAGE LINE B STATUS BYTE 10 i 2 
3409 7% 5S  § MESSAGE LINE A STATUS BYTE 11 i 54 
| 3410 :# 57 # MESSAGE LINE B STATUS BYTE 11 i 56 
| 3411 se 61} ECC POSITION INFORMATION i 60 
| ule ** 63 | ECC PATTERN INFORMATION i 62 
sut3 : & PETSPECESTSSSETECTSTESTOOSOCTS TT SS TTT TTT S TTT SS Ts 
| 3415 | .SBTTL PARAMETERS PASSED TO THE DRIVER 
| 3417 ; THE FOLLOWING DEFINITIONS ARE USED TO PASS PARAMETERS 
$18 : TO THE RKOS DRIVER 
| 34 000000 P.DRVN= 0 sDRIVE NUMBER 
3421 000001 P. CMND= i 
sce oo0002 P.CYLN= CYL IND R ADDRESS 
| 34 000004 P.SECT= 4 ie OR 
| 3424 p00005 P.TRCK= § 
3425 000006 P.OFST= 5 OFFSET. 
3406 000007 P.CSIH= RKCSI BITS 
| 3427 00 P.BAHI= 7 sre Appaees” caits 16 AND 17) 
3428 000010 P.BALO= 10 *BUS ADDRESS (BITS 0-15) 
| 3ue9 000012 P:Wc= le *WORD COUNT (2°S COMPLEMENT) 
| 3430 000014 P.PRST= 14 *PROGRAM DRIVE STATUS INFORMATION 
| ERE .SBTTL PROGRAM DEVICE STATUS REGISTER DEFINITION 
| 3434 000001 DRVUSE= BITO ;DRIVE IN USE 
| 3435 ooo00e2 DRVPOS= BITI ‘DRIVE POSITIONING 
| 3436 000004 ORVPOT= BIT2 * DRIVE POSITIONED FOR DATA TRANSFER 
3437 000010 UEXATT= BITS “UNEXPECTED ATTENTION 
3438 oo0020 DRVHRD= BIT4 *DRIVE HAS HARD E 


RD ERROR 
3439 000040 DRVOSC= BITS ;DRIVE STATUS CHANGE DID NOT CLEAR 





[lO ee te eee meee 


| 
| 
| 


DTSEN-B - RKGLL FADE SUSSYSTE™ ERIE ICRTION : PRET 2  MACYLI 271732) O3-NOV-76 21:42 PAGE 93 
DERENS. OMS PROGRAM DEVISE STATUS REGISTER DEFINITION 


209100 CMOTO= BiT sNO TERMINATION TO COMMAND FOR AT 
LEAST of FOND , 
, ee W.WCK= g117 WRITE F I M3 WRITE CHECK 
6 NOCHK= BITS NO CHECK ee T SET INTERRUPT ENAGLE 
103 PESVAL= BITS ;PARRIIE TER g ey vel 1D . 
: (SET WHEN INATION OR 
: TATUS COMMAND) 
g02 DRPDRVs 81110 t osoB p ive FROM TEST SEQUENCE 
sass. rH aI tee bres oar = 
a ie PE NE IRE nari a 
2 i Sshnt i= Bitte : INHIBIT Bue ss NebedtNt ze 
.SSTTL PARAMETERS PASSED FROM DRIVER TO PROGRAM 


Mee LETS HS SE NE Pasa TS 


3¢ TATUS REGISTER 1 
‘correo BND TATUS REGISTER 2 


OO 
fee 
“uuu 


Se mn a a ee nm ee ee em ee ee 
‘ 





: 1 P, 1g 
, p. 20 
PUR = GI 
pipes Se Oe TRED TRACK SECTOR REGISTER 
ra bbe = 30 :DESIRED CYL NOFA RESIST 
P’ASOF= 32 2A ON SET REGISTER 
PER= 34 * ERR GISTER 
P.0S= 3 STAT! GIST 
P-A0N= 49 iHES a 00 
Ky P.B0J= 4 3 B STA 00 
=470 p-AOls 44 ’ ME A STATUS 01 
7 P. As 6 : ME : ATUS Ol 
Pal MES ATUS Ht 
eS rae recess @ frig pve 1 
; . = 5 
sur Shanes P'piiz ee SMESeACE B STA tt 
78 000060 P-EPOS= 60 ECC POSITION INFORMATION 
000062 P-EPAT= 62 ECC PATTERN INFORMATION 
bi .SBTTL PARAMETER BLOCK 9 FOR DRIVE 
PARMO: . : ;DRIVE NUMBER 
B22 00000 ‘Be 0 sCYLI ADDRESS 
cog “BYTE 0 :SE Oca nt Ss 
. 0 ; TRACK an 
=£2f 990 “BYTE 0 OFFSET VAL 
We “BYT : sBUS SS (BITS 16 AND 17) 
. ; (BITS 0 = 15) 
3489 00263; “WORD 0 :WORD COUNT (2°S COMPLEMENT) 
3430 959000 : 0 : PROGRAM DRI TATUS INFORMATION 
319 “WORD O :C TATUS REGIS 
000000 “WORD =O 2C AND STATUS REGIS 
3493 00264 "WORD 0 WORD COUNT REGISTER 
3494 Doce Hs “WORD 0 :BUS SS REGISTER 
2496 “6 “WORD 0 ‘DESIRED TRACK AND SECTOR REGISTER 
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Cae eet necisteR 


—— + 
Lo] 
: 





DERENB. 
: 

2 q fang Br 8 
£ ieee tie @ Hata Fo 
Q Cake 


BLOCK 1 FOR DRIVE 


‘Ewrue- 2nck : 


NOU £UIUe-O 


RRRRAR 
Rs 


oO © 6-0» - 6B 


RSS 


Si) Soe 


a 


GISTER 
REGISTER 


a 


wn 


ccccoee 


OOOO OOOO OO8HOOKOWKOKOOOK8OOO00O0000 g QOOOKOOOOOOYUO000 


ot a 


INE 01 
INE BYTE 10 
INE 8 STATUS BYTE 10 
SSAGE LINE ATUS BYTE 11 
see aos rans BYTE 11 
;ECC a ORMATION 
° 3ECC PAT INFORMATION 
| -SBTTL TEMPORARY CONTROLLER REGISTER STORAGE 
cococs T.CSi: .WORD O TEE etn y teases FOR COMMAND AND STATUS 
000000 T.CS2: .WORD O ; et ae FOR COMMAND AND STATUS 
34 penne I. WOR: .WORD 0 t TEMPORARY STORAGE Eon WORD COUNT REGISTER 
2559 T.B8A: .WORD O TEMPORARY STORAGE FOR BUS ADDRESS Se cda rene 
325) 000000 T.DA: WORD Q ; TEMPORARY STORAGE FOR DISK TRACK AND SEC 











Pas : ‘ es ¢ 
2 a a ee ee: 
fives 1 ee iy: 
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¥ SS SESSSESS SSpMaecsE Soe Ue fees So wi 
NG fae Serle els 
i Sithbnhahh  =egeeSnrRy Ba a5 5 Boe aete _ BoRaevee 
, pa rereeee: , SESeEete By Bead 6) SSassso 
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DRIVER PARAMERTERS 


WORD 
ERRFRE 
ERRHOL 

ONERR 

WORD 

0 
4 
5 

WORD 0 

WORD 
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ee S5556588 
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DZRENB. CMS DRIVER PARAMERTERS 
3608 003052 000100 W.SEC: .WORD 100 :SE CON reer oh ee FOR ALL COMMANDS 
=o W.BSEC: . 1009 :8 SECOND FOR OR OR 3 GYELE Dou 
1 1 W. MIN: “ORD 10000 pau ye FOR. S 7 SPIRO 
ie HOR. AD: “WORD 60 OP READ ALL HE ADERS 
13 HDR.CT: .WORD 0 RURGER OF HEADERS T TO READ FOR READ 
} 000 I.ISRL: .BY tay RELEASED COMMAND ISSUED 
sie ow ~=— ogo cneab: “BYTE | 8 4 10 tha ee 
3617 003070 900 W.TIME: .BYTE O : DRIVES BEING WATCH-DOG TIMED 
1 SBTTL INTERRUPT MASKS 
pe 003071 00 INTMSK: .BYTE 0 s INTERRUPT MASKS FOR DRIVE IN PARAMETER BLOCK 
; INTERRUPT MASK TABLE 
35e 90307 001 I.DRV: .BYTE 1 s INTERRUPT MASK FOR DRIVE 0 
= 902 : VTE 2 j INTERRUPT MASK FOR DRIVE 1 
oars 10 YTE 10 : NTERELPT nek FOR BRIE 5 
3629 020 “BYTE 20 * INTERRUPT MASK FOR DRIVE 4 
330 ou “BYTE 40 SINT RRUPT MASK FOR DRIVE : 
1 100 l "BYTE 100 INTERRUPT MASK FOR ORI 
22 101 200 BYTE 200 INTERRUPT MASK FOR DRIVE 7 
| 3634 .SBTTL PARAMETER BLOCK TABLE 
oe 903102 002620 PBLKT: PARMO sADDRESS OF PARAMETER BLOCK GIVEN WITH 
| 3637 SORIVE CALL. MUST BE LOADED INTO PBLKT 
i 
Ea -SBTTL TIME FOR WATCH-DOG TIMER 
| seas 003104 900000 W.ORV: .WORD O FOR INSTRUCTION IN PARAMETER BLOCK 
, 3e43 .SBTTL PROGRAM SPECIFIC reserve Lora OCATIONS 
| 3644 003106 000 HBFLAR: -BYTE 0 FLAG TO INDIC. DEFLT OR PARAM MODE 
| 364s 003107 n00 :: 0 *XXDP CHAIN MODE FLAG 
| 3646 003110 000 TSTING: .BYTE 0 CURRENTLY RUNNING TESTS IF = 1 
| 3647 Boat 000 DERCNT: .BYTE 0 DAT COUNT 
BS oes bores “erie 7 
103114 MT: . 
“Seer 003115 000 FORMAT: “BYTE 0 
ae & mor ave 
| 3654 003120 000 DRVERS: .BYTE 0 
| 3655 ate oop OPCONT: “BYTE 0 
ee a ee | 
' tae e 
|: 28 Boaise §=— Boe XOPSvb; “EVIE 
| 3660 bale? DULACS: Me 0 
spe 1 ISSU: .BYT 5 
2663 003131 000 WCEFLG: .BYTE 0 














owe. 2 --— a. = 
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ee eee. 
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¢ walk DLTFLG: .B 
NORTRY: ‘Bite 8 iProcRet TE ERROR FLAG 
ee poste MENAGT: “BYTE 0 oe ‘tee ret, IF = 
0031 

370 O03137 HYDE: “EVIE OD HELP F LF OVERLAID IN ICATIR 

UrOsus8710. 5 INO TERED LOADED IF 0 
2 Hare fieten aie 
ey RCDASH=BITS qt Be ah ie 
es OREGSH=BITY OFFSET REQUIRED SUITCH 

003140 
Me oa UKS: = WORD sKWII-L CLOCK 
31 00a1% Fase: “HOR 175eup it ean 0 STATUS REGISTER 
oe his a a ee a pe 
ze oun neo a a oe 
ey posiee TCONLO: +i RenORY PARITY. TRAP VECTOR. 
ae Teint: <i f i BLS OF RL TEPHTION up consran 
se Bl REVEAL: : 4 ;COUNT OF TIMES BELOW NIN 
52 re ae ee ee a 
3693 003174 1: ; fT BIT T 
ee ts ee | HS Be 
= ey : ae 8 SO VE-WORD FOR PAR CONSTART 
22 CYLST: <BLKH 108 PTY BOD an cv 
ee: Se 8 saree es 
ie Sees an ef meyer Om 
oe tes pena: tas OS U.e ne nee oe 
A: oF ions 
7. ° t066 OUTPUT BUFFER 1 
Towoct: “WORD 0 

cA Dosi74 HIGOCT: WORD 9 Ee aE Bean Noe 
3711 Se RECODE: - WORD 0 RECOVERY ODE 

1 ERRCOM: . 0 ODE WORD 
3714 aTALLS: 0 RURRENT NOW-OF UNIT ST 
zis ett CYLNOR: “HOR 0 ENT ALLS TO APPLY 
Zu Res & rey: ie ABST SEPTOR IIT 
3713 005520 OFINUS: “WORD 0 2 net Ot, Scnarch WORD 
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Inte: ‘ioe On SO INTERRET INPUT 

ANT ete: “HRS 5 sANY Att a ‘4 IN LOW aye crves AUTO-SELECTED DRIVE NO. 
ONL INE: -HORD : : ANY any BIT SET ihe Bale INDICATES @ DRIVE WAS ON-LINE 
Berean: “tien Og ALL PURPOSE PATT Toho 

xxNPAN: “HOD x + RTI ee Pe: OF Xxoe ¥XDP gg OPOER 

XDPSAV: .BLKW ‘ I XDP ics 

PLOEST: WORD 5(4) OFF ! 
UivPRE: BLK ; SAVE re FOR_XFER 

: rR: “WORD 0 iNO. OF WORDS RCTURLLY XFERRED 

FINTRK: “BYE 0 SF INAL Crh ANP ER 

CASTHC: “HORD ACTUAL FINAL We 

MAHILM: “HORD 157776 -MA UPPER LIMIT 

- “HOR 5 ” iho Bite oF By ‘ 2 ten apRe 

PMA ;BLKW 2 *PARTIAL TRANSFER MEMORY START ADRS 


“LIST OF DESIRED DRIVES TO TEST (IF BYTE=0, DON’T TEST DRIVE) 

005610 ORVLST: 
po5610 001 -BVTE 1 ;DRIVE O 

il 091 “BY 1 DRIVE 1 
005612 001 “BYTE 1 - DRIVE 2 
oosb13 001 “BYTE 1 :DRIVE 3 

14 O01 BYTE 1 :DRIVE 4 
905615 01 BYTE 1 DRIVE S 
005616 001 BYTE 1 :DRIVE 6 
005617 001 TE 1 :DRIVE 7 


sLIST OF ITERATION COUNTS FOR DESIRED TESTS (IF=0, TEST NOT RUN) 
* MAX OWABLE NUMBER OF ITERATIONS = 77776 (OCT) 
005620 TSTLST: 
“WORD 2 ‘TEST 2 
ee ee Poe Tee § 
e 2 TEST 4 
005630 000002 “WORD 2 TEST S 
000106 “WORD 100 TEST 6 


BRRER EEG poate OnE RPaPEERPO MASSA SAGAR NDNA 


ce eee cr en Sn A Tn 


“LIST OF DEFAULT ITERATION COUNTS FOR ALL TESTS 
005624 OFLTST: 
005634 ‘ 2 TEST 1 
3773 000002 -WORD 2 TEST 2 
-WORD @ ;TEST 3 
3775 05642 000002 -WORD 2 TEST 4 


_ econo fi 
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FIC RE LOCATIONS 
oose44 oococ2 .WORD 2 TEST é 
005646 000100 .WORD 100 TEST & 
oo0006 NMTSTS=<DFLTST-TSTLST> /2 sTOTAL NO. OF AUTOMATIC TESTS 
-OPERATING PARAMETER LIST 
PRNLST: y 
.WORD 0 sFIRST CYLINDER 
O05& 43 .WORD 632 *LAST CYLINDER 
FT: ; -FI T TRAC 
bt: WO sper Tek 
$0: “WO , IRST SECTOR IF 20(DEC) SECTOR SENT 
reas 58 “HRD , : eae iF ge(0e0 oes OR ENT 
Oose76 PT: “ORD § iL AST Sect PATT Setect Fee ORe 
0056 CS: “WORD 60 : CONTROL Cah 
005674 ST: “WORD 0 *NUMBER OF UNIT SeECLS 
“DEFAULT OPERATING PARAMETER VALUES 
005676 PRDFLT: we cornas 
pees re “HRD P32 *LC DEFAULT 
005702 “WORD 0 FT DEFAULT 
05704 -WORD 2 *LT DEFAULT 
“WORD O 50 DEF 
05710 “WORD 23 ipl DEFAULT 
1 -HORD :S2 DEF: 
005714 , 2s >53 DEFAULT 
16 “WORD OO sPT DEFAULT 
“WORD : CS DEFAULT 
WORD *ST DEFAULT 





ome iQPERATING PARAMETER VALUE LOW AND HIGH LIMITS 
bos7es ss - WORD . 3FC LIMITS 
005730 “WORD =O ;LC LIMITS 
ober : ‘HOR B SFT LIMITS 
ees - WORD é ;LT LIMITS 
mera Ooo ‘HOR 5. ;S0 LIMITS 
005750 - WORD o. ;S1 LIMITS 
a ‘HOR o. ;S2 LIMITS 
005769 + WORD o. 353 LIMITS 











O3-NOV-76 21:42 PAGE i00 





DZRESN-B = RKB1I/RKOE SUBSYSTEM VERIFICATION : PART 2 MACY11 27(732) 
OZRENB. CNB PROGRAM SPEC 
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Ete ie ai 









:ST LIMITS 

= tes oo WORD 77777 
3640 
3641 - sQSCIT PARAMETER MNEMONICS 

Poeong 1506 PRIINE: ASCII /FC/ 
a fee Bue mB 

006004 052106 "ASCII /FT/ 
3e4e 006006 56114 "ASCII /LT/ 
3647 0601 133 “ASCH /50/ 
3648 006018 3 "ASCII 7517 
3649 14 031123 "ASCII 7527 
3850 006016 031523 "ASCII 753/ 
3851 006020 052120 “ASCH /BI/ 
3852 006022 051503 "ASCII 7CS/ 
3853 006024 052123 "ASCII 7ST/ 
3854 
seep ‘ 
3857 sDATA PATTERN 00 
328 nears inn 
3860 906026 177777 177777 
3861 006030 177777 177777 
3862 06032 177777 177777 
3863 006 052525 
3564 O52505 
sere 1793993 

1 1 
3867 OOO44 177777 177777 
ser3 poepss pesese pesese 
3e79 Doebee IGF? 139397 
3871 006054 
say OOb055 177252 
3873 006069 177252 177252 
3874 006062 172765 172765 
3875 OO6064 172765 172765 
7 
3879 sDATA PATTERN O1 
3080 HI FREQ. PHASE MIX 
1 O06066 batol: 

365 OEeTR poDoon 
see3 Beenee | pobbo 
3885 06074 177777 
3886 006076 177777 
3887 006100 177777 
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A 
cu 
.o 
§ 
> 
Oo 
7 
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LO FREQ. PHASE MIX 


: PART 2 
oudo000 
000000 
177777 
177777 
000000 
199999 
090000 
177777 
052525 
052525 
052525 
125252 
leS2S2 
125252 
0SeS25 
0S2e52e5 
125252 
125252 
052525 
125252 
052525 
125252 
052525 
125252 


;DATA PATTERN 02 


PATO2: 


RESERVED LOCATIONS 


RIFICATION 


VE 
C 


EM 
IFi 


UBSYST 
EC 


: fos ocnaucara 


8ONZ 2 CUBMOSS SF PRADRBSD 


BSB NZ Sua ee cee Mee ce ee ee oe re Ree ee ee ee ee oe eros 


 SeHSeHeess §8=6—-sESSRB SESE SALES 
2 RARRHRARnARARARERRRAPRRRRARRRRRE 


OZREN-B - LI 
i 





;DATA PATTERN 03 
MAX. PRECOMP. PHASE MIX 


PATO3: 


a sscapisasai 


eG eh ed Og ad eH 





AGLERALSRRRERTRE 





| 


nen a rn es ee a ne ee | ne ee 
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4669 01336 136 006532 
| 4670 DIS3e6 OS1I36 ODECIS 
| 4671 019373 136 006525 
! 


005015 


RWNRDY : 


HEDSEL: . 
NO: 


HEADNO 


TYPAUT: . 


AUTALN: 


AUTVRF : 


DRISEL: 


DRVSEL: 


AUTEXR: 


CNTRLR: .A 
CNTRLU: . 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIT 


-ASCIZ 


-ASCIT 


-ASCIZ 
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/TYPE <R> WHEN READY :7<15>< 12> 


/HEAD / 
/ SELECTED/<15>< 12> 


(12>¢12>7% AUTO SELECT MODE #7/<15><12> 
(12><12>7% AUTO SELECT ALIGNMENT #7<15>< 12> 
(12><12>/7% AUTO SELECT VERIFY #*7<15><1le> 


(12>/DRIVE / 
/ SELECTED/<15><12>< 12> 


<(12><12>7% AUTO SELECT EXERCISES #/<15><12> 
(12>/SHORT OR LONG (S OR L) ?7<15><1l2> 


ZEXERCISING DRIVE / 


/ 4415><12> 
7%% CANNOT READ BAD SECTOR TRACK! 7<15><1l2> 


/#0/¢15><12> 
4*2/¢15>< 12> 
/tR/¢415>< 12> 
/tU/<15><12> 





serene RK611/RKO is Y 


8 
3 


oor 


THON PART 2 
LOCATIONS 


D 
w 
<> 
44 
Ne MeReNINNA 


-EVE 


4 4 4 4 te 


NNNNN 


: MOVB 
CLRB 


: MOV #PR7, a 
-SBTTL. INITIALIZE THE COMMON TAGS 
> LEAR THE COMMON TAGS (SCNTAG) AREA 


ss INITIALIZE A FEW VECT 


MDFLAG ;SET FLAG FOR rent MODE 
DULACS CLEAR DUAL-ACCESS FLAG 

ERRCNT CLEAR ERROR COUNT FOR RESTARTS 
#DRVTST, d#4e SEE IF EOP a AL ADRS = DRVTST 
4$ ;B8R_IF NOT DRVT 


#NEWPAS, d#4e :SET RET 
CMSTRT ;PROCEED 


DULAC 


#340, 8LOTVEC+2 ; 


#SP. 
#340 SEPURVECS 5 CLEVE 
SEOPCT 


SENDCT, SE SETUP en- COUNTER 

STIMES i INITIALIZE NUMBES' OF ITERATIONS 

SESC S:CLEAR THE ESCAPE ON ERROR ADDRESS 

#1, SERMAX *?ALLOW ONE ERRO EST 

#. ,SLPADR *: INITIALIZE THE LOOP ADDRESS FOR SCOPE 
#. ,SLPERR ::SETUP THE ERROR LOOP ADDRE 
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7*G/¢15><12> 
€15><12><12> 
/N/ 





%. 





a 





ee 














URN ADRS = NEWPAS 









#1 cL AG iefe FLAG FOR PARAMETER MODE 


LEAR DUAL-ACCESS TEST FLAG 





#PS ;BLOCK ALL INTERRUPTS 






AG, R6 + OL ERR LOCATION TO BE CLEARED 
;CLEAR MEMORY LOCATION 


ssh 00° BACK IF NO 
;;9ETUP THE STACK POINTER 


OsIOTVEC : ;10T , ren FOR SCOPE ROUTINE 


oat 
(R6)+ 
th, »R6 ;;DONE? 
¥STACK 
#SSCOPE 


#SERROR, DUENTVEC ; ENT VECTOR FOR ERROR ROUTINE 
#240 DeEMTVEC+E UB 
#STRAP, a8T Tee VECTOR FOR TRAP CALLS 
#340 SL TRAEVECS +2; ;CEveL 

WRON, oe Cc’; Pou FAILURE VECTOR 





INITIALIZE THE COMMON T 
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47 3 3SI7E F OR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
We 164 re pita : EQUA L Toa” “I. ac senue FC FOR RA “Trane ERHOR VE REGISTER. 
473 ot ot 737 013724 o00004 MOV #64S a >: SET UP ERR 
4? 13° oP se 33 4325 001140 MOV #DSWR SHR Sete P FOR BR HARSHARE SWICH REGISTER 
4733 013704 Ol2737 177570 001142 MOV tODISP/ 0 $3 AND A HARDWARE DISPLAY RES sISTER 
4734 0137le 922777 177777 165220 CMP SiR TO REFERENCE HARDWARE SWR 
4735 013720 O0i0l12 BNE eg’ Hee IF NO TIMEOUT TRAP OCCURRED 
ioe 013722 000403 BR 65S + ONC TE NOC IREOUT 6 
1738 13724 012716 013732 64S: NOY #655, (SP) iceT UP FOR TRAP RETURN 
4749 013732 012737 000176 0011 140 65$: MOV #SWR ;;POINT TO SOFTWARE SWR 
4741 013740 012737 000174 O01142 MOV sotopeee py DISPLAY 
ie 013746 012637 O00004 66S: MOV (SP)+,d#ERRVEC ;;RESTORE ERROR VECTOR 
4744 013752 005037 001326 CLR SPASS ;;CLEAR PASS COUNT 
wr Gleres bards POD cmon ER gg TZE SEW eae ee 
ie? 13766 012737 001342 001140 ae MOV #SSWREG, SWR SIND. USE APT SWITCH REGISTER 
4749 Baer ooo0ns RESET ;CLEAR THE UNIBUS 
4750 013776 Ole 000006 o00004 MOV #6 QHERRVEC *SET TIME-OUT VECTOR 
4751 014004 000006 CLR aeERRVE 
4752 014010 012737 030060 000114 Sov SMBEEND MEMVEC ;SET MEM PARITY TRAP_ VECTOR 
4753 014016 012737 O00340 000116 MOV #PR? 1D aaENVE iE TRAP PRIORITY = 7 
4754 014024 737 Oe JSR PC, ENBCSR ;ENABLE MEMORY PARITY CHECK 
wre Han He GER onaise $= SHE INREon | FSRPLEPUSOD Gunretgen™ ORE 
é 
| 4757 014042 104400 007026 TYPE  ,DZREN :TYPE PROGRAM I.D. FOR PART 2 
4758 O14046 104400 007: TYPE | SUBVER 
4759 O140S2 104400 O07121 TYPE PARTO 
| 1760 D105 105737 0031 TSTB NOTYPE :SEE IF OPERATOR NOTE SHOULD BE TYPED 
| 4762 Bt aOed 104400 064574 TYPE NOTMSG ; TYPE OPERATOR NOTE. 
4763 014070 105237 003137 INCB WNOTYPE “SET FLAG FOR NEXT TIME 
| We Oyo? 105732 003126 39S: TSTB DULACS i SEE he ees DATA TEST 
| ¥7B6 eee retina 010413 TYPE DUACES x Dual ACCESS DATA TEST x" 
4767 014106 012737 027110 OOOD6O 40S: ## MOV KKBDHDL, 2#TKVEC ;LOAD VECTOR FOR TTY KBD 
4768 O1Hit4 000200 o00062 MOV apr auTkvecte ;SET KBD PRIORITY = = ¥ 
4769 O14le2 013701 003030 MOV OF RKO& VECTOR STORAGE 
4770 014126 Ole7el o4ss42 MOV oT. NTR (R1)+ SET iT TO RKO HANDLER 
4771 014132 013711 003032 MOV RKPRI, (R1) SET RKOG PRIORITY 
| 4772 O14136 012737 027702 oD0250 MOV RKTERHD A AMMVEC :VECT FOR KT11 FAILURE 
4773 O14144 012737 000340 O002Se2 MOV #PR7, JHMIMVEC+2 :SET PRIOR. = 7 FOR HNDLER 
4774 014152 i 003110 CLRB so TSTING sCLEAR “RUNNING TESTS” FLAG 
4775 014156 012737 O00000 177776 MOV #PRO, aaPS “ALLOW ALL INTERRUPTS AGAIN 
| 4776 O14164 012701 O0S5224 MOV #PRVCMD, R1 ZERO OUT PREVIOUS COMMAND 
| 4777 014170 012700 O00006 MOV #6, RO SET COUNTER 
| 4778 O14174 005021 425: CLR (R1L)+ ZERO A WORD 
| 4779 014176 005300 DEC RO 
| 4780 014200 001375 BNE 42g sBR IF NOT DONE YET 
4781 O14202 005037 oosso4¥ CLR STALLS :DON’ T WW STALLS YET 
| 4782 014206 004737 027562 JSR PC, GTSWRG OPEN SOFTWARE SWR FOR MODIFICATION: 
| 4 Ol42i2 012737 176543 053170 44S: MOV #176543, SHINUM ;INIT. PSEUDO-RANDOM NOS. 
| 
i 





f ee ee ee eee ee ee 





























THE COMMON TA 
4784 014220 012737 123456 053172 MOV #123456, SLONUM 
478S 014226 004737 027302 JSR PC. SIZMEM ;SIZE MEMORY, FIX MA LIMIT IN PRMLIM 
4786 Ol4e32 105737 003125 TSTB © XDPSVD SEE IF XXDP PREVIOUSLY SAVED 
4787 014236 001404 BEQ $ -BR I 

14240 004737 030502 JSR PC, GETXDP RESTORE SAVED XXDP 
4789 014244 105037 003125 CLRB  XDPSVD : CLE 

014250 105737 003106 9g: TSTB MDFLAG ;SEE IF 

aees bruce ea ow ect RO a V KT Of Ooo PRTY 
4588 14 Bt 50 ob ee 003026 MOV 33 SE, RKBAS ia EKG on st ADDRESS 
4794 014270 132737 001341 BITB #8117, SENVM 
7g O1He76 601005 8 18$ ‘Bae i NO” Shot nee 
4 14 12700 120210 MOV #AVECT1, RO GET DEFAULT VECTOR AND PRIORITY 
4797 014304 012737 177440 003026 MOV #BBESE RKBAS § ;GET DEFAULT BASE ADDRESS 
4798 014312 110037 003030 18%:  MOVB KVEC :STORE VECTOR 
4799 014316 105037 003031 CLRB Aeon :CLEAR HI BYTE 
4800 014322 000300 SWAB  —s-RO GET PRTY INTO BITS S-7 
4801 014324 042700 177437 BIC #177437 ,RO *CLEAR OTHER BITS 
4802 014330 010037 503032 MOV RO, RKPRI *STORE RKOS PRIORITY 
4e0s 014334 000137 O15216 JMP ALLORV *GO CHECK ALL DRIVES 
4805 
806 
4807 : BEGIN PARAIE TER INPUT MODE 
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See ong eee NT erat Ese ig x 
| 
} 
! 
| 
| 
| 
| 





#808 014340 104400 007212 10S: YPE  ,PRMINP ;TYPE “PARAMETER INPUT MODE™ 
4810 ;OPEN RKO& UNIBUS RODRESS FOR NOI TCATON 
4811 O14 01374 003026 MOV RKBAS, -(SP) T OLD VALUE on STACK 
4812 914350 104400 007244 TYPE RKBADR : TYPE RKO BUS A 
4813 014354 004737 O274S2 JSR Pc GETPRN TYPE OLD, GET NEW RKBAS VALUE 
4814 O14360 012637 003026 MOV (SP)+, RKBAS > STORE NEG VALUE 
4815 ;OPEN RKO VECTOR MODES FOR nOO IT dca ZOR 
4816 014364 013746 003030 MOV RKVEC, -(SP) TOLD VALUE ON STACK 
4817 014370 104400 007264 TYPE RKVADR tne “RKO6 VEC ADR = 
4818 014374 004737 O274S2 JSR Pc GETPRN TYPE OLD, GET NEW RKVEC VALUE 
4819 O14400 012637 003030 MOV (SP)+, RKVEC “STO VAL 
48a “OPEN RKO6 INTERRUPT "HANDLER PRIORITY LEVEL FOR MODIFICATION 
4821 O14404 013746 003032 11$: MOV RKPRI, -(SP) GET OLD VALUE OF PRIORITY 
yB=2 O14410 006316 ASL (SP) GET IT INTO BITS O-2 
4823 O144le 006316 ASL (SP) 
4824 O14414 006316 ASL (SP) 
4825 014416 000316 SWAB ss ( SP) 
4826 O14420 104400 007304 TYPE RKPRTY ;TYPE “RKOG PRIORITY = ™ 
| 4827 Civ4e4 004737 027452 JSR PC, GETPRM :TYPE OLD, GET NEW RKPRI VALUE 
| 4828 014430 012600 MOV (SP)+,RO 
| 4829 O:4432 020027 ocD0004 CMP ;SEE IF AT LEAST LEVEL 4 
| 4830 014436 O02414 BLT 128 :BR IF NEW VALUE TOO. SMALL 
| 4831 014440 020027 000007 CMP RO, #7 *SEE IF LEVEL 7 OR LESS 
| 4832 O14444 O03011 BGT 12 *BR IF NEW VALUE TOO LARGE 
' 4833 014446 000300 SWAB =s- RO GET PRIORITY INTO BITS 5-7 
| 4834 O14450 006200 ASR RO 
| 4835 O14452 006200 ASR RO 
| 4836 O14454 O06200 ASR 
| 4837 014456 010037 003032 MOV ;STORE NEW VALUE 
| 4838 O14462 104400 001315 TYPE 
| 4839 014466 O00405 BR 


Pe ea ee ee eR ee ee ee eee eee ee eS ae ee eee Ee ee ae eee Ee ae eg ee eee eT eee 


ae i nw ne ee se we re ene ee 


a eee on eee eee en 


oe nee ee ee 
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DZRENB. CNB INITIALIZE THE COMMON TAGS 


4840 O14470 104400 o05264 123: TYPE  ,BUFFO sECHO BAD INPUT 
4841 014474 104400 001314 TYPE SQUES 

4842 014500 00074! BR Lis GO ASK AGAIN 

yB44 O14802 105037 003116 16$:  CLRBS  ERRCNT CLEAR. ERROR CNT FOR RESTARTS 
us4s O14S506 012737 014520 opoD42 MOV #DRVTST, ae4e SET P DUMP i E RETURN FROM SEOP 
48 UPON COMPLETION OF REQUESTED PASSES 
wBY? 014514 000137 015310 © IMP CHKLST 60 CHECK STATUS OF MARKED DRIVES 
3 

uges e 33 REF KEAA LARS KLAAE KALE RESELL AHHH SEL ALKA ARE LAE KALE EREKK AEF LLEFHEKKE 
4g “SBTTL DESIRED DRIVE INPUT ROUTINE 

4853 ;¥THIS ROUTINE TYPES THE CURRENT LIST OF DRIVES TO TEST, 

4gs4 *#WITH DRIVE NUMBERS SEPARATED BY COMMAS. N 

4gss ?¥CHOICE RIVES IS REQUESTED BY TTY INPUT, BND THESE 

48sé ; *DRIVES ARE CHECKED FOR VALIDITY AND PROPER’STA 

4857 ?*4AND IF THEY ARE VALID, THEY ARE LOADED INTO THE UBRIVE 

4gdg s4L137 (DRVLST). 

m2, FT errr titi ttt iit tt ttt titi tt itt it tii tttt ttt iit tt ttt: 
4861 014520 arta 

4862 014520 012706 001100 MOV #STACK, SP RESET THE STACK 

4863 014554 905504 CLR STALLS ‘INHIBIT STALL BETWEEN OPERATIONS 
4864 014530 004737 027776 ISR PC, ENBCSR ‘ENABLE MEMORY PARITY CHECK 

4BES 014534 104400 007720 TYPE DRVS *ASK IF ALL DRIVES DESIRED 

4856 014540 004737 032214 ISR PC ROCHRS j READ RESPONSE 

4B67 014544 014520 DRVTST *(4C) RETURN ADDRESS 

wBE8 914546 014520 DRVTST 5 (2) RETURN ADDRESS 

4869 014550 014520 ORVTST 3 (10) OR ERROR RETURN ADDRESS 
4870 014552 0057 TST RO NULL INPUT 

4871 014554 001413 BEQ TELDRY BR IF NULL INPUT 

4872 O145S6 022737 O00101 ocOos2e4 CMP #’A, BUFFO SEE IF ALL DRIVES REQUESTED 

4873 014564 001002 BNE 4 ‘BR IF NOT ALL DRIVES 

4874 014566 000137 o1S216 IMP ALLDRV CHECK ALL ORY VES 

4875 014572 104400 005264 4S: TYPE  ,BUFFO ECHO UT 

4876 014576 104400 001314 TYPE SQUES TYPE <?> AND <CR>, <LF> 

4877 014602 OO0746 BR VTST GO ASK AGAIN 

4878 : TYPE CURRENT DRIVE LIST 

4879 014604 104400 007344 TELDRV: TYPE DRVSEQ sTYPE “DRIVE(S) 

4880 014610 O0S5001 oR Ri INITIALIZE DRI VE NUM BER 

4881 614612 O05000 CLR RO INIT. COUNT OF LISTED DRIVES 
4BB82 O14614 012703 ooo0n1 MOV BITO,R3 -INIT BIT POIN 

4883 014620 105761 005610 .. 4S; TSTB bRust ca) :SEE IF THIS DRIVE IS LISTED 

4B84 014624 001414 BEQ 8S : DRIVE TE 

4BAS 014626 ? TST RO *SEE IF FIRST TIME HERE 

4B86 014630 001402 BEQ 6$ ;BR IF FIRS 

4887 014632 104400 013413 TYPE COMMA TYPE A CO 

4ee8 014636 010137 005534 - i MOV Ri, SCRACH “USE SCRACH FOR BUFFER 

4889 014642 052737 OO0060 ooss34 BIS #0. SCRACH “CONVERT DRIVE NO. TO ASCII 

4890 O14650 1049400 005534 TYPE SCRACH TYPE DRIVE NO. 

4891 014654 O0s2 INC RO INCREMENT NO. OF LISTED DRIVES 
ueBse O146S6 O0S201 8S: INC Ri “INCREMENT DRIVE NO. 

4893 014660 006303 ASL R3 ‘SHIFT BIT POINTER 

4894 014662 022701 O00010 CMP #10,R1 SEE IF DONE YET 


4895 O14666 001354 BNE 4$ ;BR IF NOT DONE Wes 





ee ee eee | 
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DZRENS. CME DESIRED ERIVE INPUT ROUTINE 

“8% O14 700 Ts? RO “SEE IF ANY ORIVES WERE LISTED 
3 G2 Be ans eee 
4 th 1 011265 iE SNOFALS :TYPE * NONE” 
4 14 ! ; TYe *NODRTS ;TYPE “## NO ORIVES TO TEST” 
4 : PRESS "CONT’ WHEN RDY™ 
4901 O14704 He HL TPRG ; 
4 14719 2é$: YP CRL sTYPE <CR>,<LF> 
wae biared Ese pa — iSEE IF OFF nap ka 
4895 0147 fe OE SBFLS 85 LOAD DEFLT ITER. COUNTS 
+208 147 00004; 208:  ¢MPB  9813,a841 : SEE iF RKO6 IS XXDP MEDIUM 
“907 0147 e ‘BR IF NOT 
4308 O14 S?a  ORVLST :SEE IF DRIVE O LISTED TO TEST 
~ 1474. £9 4 Nor 
4310 14744 248: YPE  ,REPLPK : “IF XXOP PACK ON DRV 0, TYPE Y <CR 
“ais ox JSR «PC ROCHRS READ RESPONEES 
a ER ef fa ite 
4514 O14 aug :(¢2) RETURN 
4915 O14 ays (40) RETURN 
4916 O14 S RO :SEE IF NULL INPUT 
4917 014764 BEQ 195 ‘BR IF JUST <CR> TYPED 
4918 014766 oos2e4 CMP 8°Y,BUFFO :SEE IF ny (Gps TYPED 
4213 14 24g °BR IF NOT, TO AGAIN 
4 l CNTRDY TYPE “PRESS CONT WHEN ORV RDY” 
4921 01 oocoo0 BIC BIE,RKCSI(R2) DISABLE RKO I T 
1x22 1501 T ‘HALT FOR PACK CHANGE 
4 1501 J PC INITSS ‘INIT THE SUS-SYS 
4924 51501 IMP CHKLS GO CHECK STATUS OF LISTED DRIVES 
4925 015022 198: TYPE PROMPT -TYPE ASTERISK AND SPACE 
4 *READ AND CHECK NEW DRIVE NUMBERS 
4 15026 ISR PC, ROCHRS >READ IN INPUT STRING 
pt i ORVTS >(7C) RETURN RODRESS : 

15034 ORVTST 2(¢2) RETURN 5 ; 
4930 01 TEL >(#U) OR ERROR RETURN ADORE 
433) 1 TST RO :SEE IF NULL INPUT « 
4 1 BNE 33 BR IF NEW DRIVES Wl BE SELECTED 
4933 015044 TSTB DULACS SEE IF “ACCESS SET 
4834 015050 BNE 225 : 
4535 015052 15354 IMP ASKTST : 
4936 015056 223: § JMP INPUTP : 
4937 ot 22700 000017 9S: CMP #15. ,RO : 
4938 0] BGE 123 : 
woud p1s074 ipNueD Seiaia 10S: PEC‘ gauee 
pea states bpoesi eR tec bay : 
see THEIR JBEID? ooszew como HE! fife Blerocuero | 
4S4y BiELie BLT 1 : 
4945 015114 126127 O0S264 000067 CMPB © BUFFO(R1),8°7 
ae Hele me a 

o 

O18 I ins R1,RO 
4 15139 001408 BEO 16$ 
W850 015132 126127 o0S264 OO00SY CMPB  BUFFOCR1),8’, 
4951 O15140 001353 BNE 10$ 


| 


ee ee ee eee 


10 
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ge s INCREMENT CHAR POIN 
BR TO CONTINUE CHECK NG CHARS 


T NEW ee ae INTO LIST 
095610 igé: Ur, A ;GET ORIVE LIST AQORESS 
;CLEAR OUT THE DRIVE LIST 


LEE 
0 b= = 0 bo 
WNUNUinUtute 
O* b= 0-2 b= os he 
HERZ 
nae 
~_ 
eT et as 
mappppps 
D2wDwzwD 
DDD D 
oe 
~ FFF 
. 
co 
B 
3 
~ 
4 
3 


| 
4950 0 : 
4961 16001 4 188: BUFFO(RO), RI CLE & DRIVE NUMBER 
tie Ot 1 BIC #’°0,R1 ‘STRIP ASCII BITS 
i33 Ol 174 ll 1 ocsbi0 MOVB 81, ORVLST(RI) sR THIS DR VE IN DRIVE LIST 
4565 GiES06 : Bpeoes ae BUPFO-1 (RO) :SEE IF NULL CHAR YET 
4 121 601364 BNE 188 ;8R IF NOT DONE YET 
4967 015214 BR CHKLST °GO CHECK NEW DRIVES FOR VALID STATUS 
4368 ;COME HERE IF ALL DRIVES REQUESTED 
4369 1521 ALLDRV: CLR RO sCLEAR DRI DRIVE R 
4 13528 l 001376 MOV. $DEVM,R3 GET APT DEVICE MAP 
467] 015204 000200 . 001341 SITB sBIT7,SENVM :SEE IF NO SIZING 
tie E63 I : ONE. 18 *BR IF NO SIZING 
4 1 1 000377 MOV #377,R3 *SET UP FOR SIZING 
4974 015240 0 000001 1$ MOV #2170,R1 :SET BIT POINTER 
| 4875 OQ] 005610 CLR8 _-DRVLST(RO) * INITIALIZE DRIVE EN 
|; 4 oi 193 T Ri,R3 iBEE IF THIS DRIVE IS REQUESTED 
- 1 i Q 4 ‘BR IF NOT 
| 4978 bess 112760 000001 005610 MOVB  81,DRVLST(RO) MARK THIS DRIVE IN DRIVE LIST 
1373 1 00630 4S: ASL Rl ‘SHIFT BIT POINTER 
15264 ppeson INC RO S INCREMENT DRIVE NUMBER 
| 4381 bi5eb 022700 000010 CMP #10,R0 :SEE IF DONE MARKING ALL DRIVES 
| 4 1 001364 BNE 2s ‘BR IF NOT DONE YET 
015274 132737 o00200 001341 BITB a6177 SENVM SEE IF PROGRAM SHOULD SIZE 
| ¥ga4 gi50e go 140 BEd HKLST ;BR IF_YES > Y 
| 4985 015304 i37 014604 FELDRV GO LIST APT-SELECTED DRIVES 
1386 : CHECK all DRIVES MARKED IN DRIVE LIST FOR PROPER STATUS 
ae 915319 o0s000 CHKLST: CLR =O ;CLEAR DRIVE NUMBER 
| 4388 i531 105760 005610 1318 DRVLST(RO) SEE IF THIS DRIVE IS MARKED IN LIST 
4990 presse aos? posso2 MOV Ro, DRIVE er DRIVE FOR SCNDRV 
4331 015324 004737 031046 JSR PC’ SCNDRV jCHECK STATUS OF THIS. DRIVE 
 4gqg IF OND REROVE. IY FROM CRIVE LIST 
4994 015330 015346 6$ “ERROR RETURN ADDRESS FOR SCNORV 
4995 915332 005200 4S: INC RO * RETURN IF DRIVE IS USEABLE 
dee Btesaa Borage 720020 ot a alle BR IE NOT DOME VET ne 
| 4998 015342 000137 014604 IMP TELDRV $60 Bac BACK TO LIST SELECTED DRIVES 
4999 bib 46 105060 O0S610 6S: CLRB ORVLST(RO) MOVE INVAL D ORIVE FROM LIST 
000 0} 000767 BR 4§ ‘CONTI CHECKING THE tist 
epos  SEERERELSLEASERESERSLARELLAARSERESAERALRAASAAAAARARS AREA SSAA ALEKS 
e004 TTL DESI TEST INPUT ROUT INE 
£005 ett ROUTI ALLOWS IN INPUT OF DESIRED TESTS AND ITERATION 
5006 ;#COUNT FOR EACH TEST. THE INPUT IS CHECKED FOR VALIDITY, 
£007 *#AND IF VALID, THE ITERATION COUNTS ARE LOADED INTO THE 





a @ O68 ete ewe ewwamaarass oe --9 aes | aoe 


——— wr ee 
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DZRENB. CNS DESIRED TEST INPUT ROUTINE 


itThar T sat eteTba rh AN ToleE AUN VALUE OF 0 INDICATES 


mem & 
oO 


SOE UREENTS ee OF “Tests ap freaat ons te BE 
SALES (C) BLOWS TE BND TERATI TIONS 0 BE CHANGED 
l :#AND (ft) ALLOWS THE OPE! 0 PROCEED WITH SELECTION 
£014 ;#0F OPERATING PARAMETERS RUN TESTS. 
5015 TYPING (#0) CAUSES THMEDIAT RETURN TO DRVTST. TYPING 
BO8 ; (#2) CAUSES RETURN TO ASKT 
eit $8 AL Rk 21. aa =: 
ent DETERMINE L,C, OR. MODE 
5920 015354 104400 910003 AcKTsT: TYPE’ sASK FOR TEST INPUT MODE 
502: O01 104490 019105 ASK TRO TYPE "ERT ST “TYPE “ENTER L,C, OR I” : 
see b15364 737 032214 PC, ROCHRS : RESPONSE 
1 Tiesg DRVTST ?(4C) RETURN ADDRESS 
5024 015372 015360 (#2) RETURN ADDRESS 
S025 015374 01 ASKTMD (10) OR ERROR RETURN ADORESS 
2226 ot 005700 TST RO :SEE IF ANY I 
S027 01 001005 BNE § :BR IF ANY I 
5028 Ol 104900 2s T , BUFFO “ECHO BAD INPUT 
5929 tt] 1 001314 TYPE $QUES sTYPE <7) AND <CR>,<LF> 
5030 O1S4l 000762 BR SKTMD :60 AGAIN 
593 ot 14 000114 o0S264 4$ CMP #’L, BUFFO SEE IF (L) TYPED 
2533 154 001008 BNE *BR IF NOT (L) 
5033 015424 000137 015460 IMP LSTTST > JUMP TO LIST TESTS 
5034 015490 022737 O00103 O0S264 6&$: CMP , BUFFO SEE IF (C) TYPED 
5035 D1S4% 001008 BNE *BR IF NOT (C) 
3036 ay 000137 015576 IMP CHGTST :JUMP TO CHANGE TESTS 
015444 022737 000111 OOS264 és: CMP #’1,BUFFO :SEE IF (1) 
5038 b1Stee 001353 BNE ?BR IF NOT (I), TO ECHO BAD INPUT 
£039 01 000137 016120 IMP INPUTP *GO INPUT PARAMS AND RUN TESTS 
eoat sLIST CURRENT TESTS AND ITERATION COUNTS 
pote O1S460 104400 010297 (STTST: TYPE TLSTHD sTYPE HEADING “TEST ITERATIONS” 
5043 015464 BOsoo1 * INITIALIZE TEST INDEX 
co44 015466 004 027250 2s: ISR PC, PREPKB :PREPARE FOR POSSIBLE K 
E04s D1bH7e 004737 032526 J5R PC’ TYPTST *TYPE CURRENT TEST AND ITERATION NUMBER 
Bove 15476 104400 001315 TYPE RLF TYPE <CR>, <LF> 
5047 015502 008737 00s524 TST tNTCHR “SEE IF ANY INPUT 
5048 015506 O01416 BEQ 8S :BR IF NO INPUT 
eo8 15510 £737 oo00003 o0ss24 CNPB 8003, INTCHR *SEE IF (tC) TYPED 
1551 I BNE 4g *BR IF NOT (tC) 
5051 01 137 014520 IMP ORVTST JUMP TO ASK FOR DRIVES AGAIN 
epee ieee i oosse4 4s: CMPB 10se, INTCHR SEE IF (#2) TYPED 
5053 01 I BNE 6$ ;BR IF NOT (#2) 
5054 015534 000137 01 IMP ASKTMD ;JUMP TO FOR NEW TEST INPUT MODE 
5055 15540 3 0272 6$ JSR PC, PG ECOBA ECHO BAD INPUT 
1 1 ADD s INCREMENT TEST INDEX 
5057 b15550 010102 MOV a "Re GET COPY OF INDEX 
6058 01 062702 005620 ADD SISTLST, Re GET POSITION IN LI 
2059 b15556 005634 CMP #OFLTST: Re SEE IF WITH mc 
1 ary BNE 2s *BR IF NOT YE 
2777 # ; 
5061 015564 04 000100 163352 BIC BIT6, aSTKS ISABLE KBD INTE 
bbe 015572 000137 015360 IMP ASKTMD :GO ASK FOR NEW TEST INPUT MODE 
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20$ 
3 RO, TSTLST(R1) Bort TTERATION NUMBER INTC TEST LIST 
TST Re’ ; SEE IF (!) oo TYPED 


10$ F NOT 
{PROPAGATE “CURRENT alae NO. TO i nooe op TSTLST 
AD T, Bee TP TION IN LIST 
CHP DOE: et posit eNO OF LIST 
BNE BR IF NOT DONE 
JMP 60 ASK FOR NEW TEST INPUT MODE 


Az TMD 
17S: MOV TSTLST (RL), TSTLST+2(R1) ;PROPAGATE TO NEXT WORD 
ADD s INCREMENT INDEX 
BR i "i *BR TO CONTINUE - 
20$: TYPE  ,BUFFO *ECHO BAD INPUT- 
TYPE »SQUES ;TYPE <7) AND <CR>,<LF> 
BR 8 G0 ASK AGAIN 
iASK wf DESIRED OPERATIONAL PARAMETER INPUT NODE 
tNP TYPE EXPLAN sEXPLAIN INPUT MODES 
AOKHDES CLR STALLS *INHIBIT STALL BETWEEN OPERATIONS 
ISR PC, ENBCSR *ENABLE MEMORY PARITY CHECK 
TYPE  ,PARMDE *ASK FOR DESIRED INPUT MODE 
TYPE PROMPT TYPE “x " 
JSR PC, RDCHRS *READ RESPONSE TO MODE QUESTION 
DRVTST +(#C) RETURN ADDRESS 
ASKMDE (#2) RETURN ADDRESS 
ASKMDE (40) OR ERROR RETURN ADDRESS 
TST RO :SEE IF NULL INPUT 
BNE 4§ ?BR IF ANY INPUT 
2s: TYPE  ,BUFFO *ECHO BAD INPUT 
TYPE UES TYPE <?> AND <CR>, <LF> 
BR ASKMDE *GO ASK AGAIN 
4g: CMP #’T, BUFFO SEE IF (1) TYPED 
BNE 6$ :BR IF NOT (T) 
IMP TYPLST JUMP TO THE TYPE LIST ROUTINE 
6S CMP #0, BUFFO *SEE IF (0) TYPED 
BNE eS *BR IF NOT (0) 
IMP OPNLST : JUMP TO THE OPEN LIST ROUTINE 
8S CMP #’S, BUFFO :SEE IF (S) TYPED 
BNE 10$ "BR IF NOT (S) 
IMP SET :JUMP TO THE SET INDIV. PARAM. ROUTINE 
10S CMP #’R, BUFFO SEE IF (R) TYPED 
BNE 2s *BR IF NOT (R), TO ECHO BAD INPUT 
CMP S0,S1 :C 20(DEG) SECTOR LIMITS 
BLE =: 128 ;BR IF SO NOT > Si : 
TYPE SECNLI :TYPE "SO>S1 NOT ALLOWED 
12s: ERP Bs 53 tROMPBRE SeTDECS SECTOR L InTTS 
BLE 14$ BR TF ee fons Ss 
TYPE ,SECNL2 *TYPE “S2>S3” 
TYPE NOTALD >TYPE “NOT 
BR ASKMDE GO ASK AGAIN FOR PARAMETERS 
14S: CMP FT.LT :C CHOSEN TRACK LIMITS 
BLE $ ‘BR IF FT NOT > LT 
» TRKNLW — “FIDL 


TYPE 3 TYP 
TYPE »NOTALD ;TYPE “NOT ALLOWED” 
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DZRENB. CNB DESIRED TEST INPUT ROUTINE 

016330 pot 7S BR ASKMDE ;GO0 ASK AGAIN FOR PARAMETERS 
016332 000137 017330 2cs: JMP RUNTST ;GO0 RUN THE TESTS 


.SBTTL TYPE (T) LIST ROUTINE 

:¥THIS ROUTINE TYPES THE ENTIRE PARAMETER LIST ON THE 
:#CONSOLE, LINE BY LINE. EACH LINE HAS THE FOLLOWING 
;*FORMAT: XX=YYYYYY WHERE XX IS A PARAMETER MNEMONIC 
:#AND YYYYYY IS THE VALUE OF THE PARAMETER IN OCTAL. 
:#TYPING (tC) CAUSES IMMEDIATE RETURN TO DRVTST, 

:¥AND (1Z) CAUSES RETURN TO ASKMDE. 


TUN UNT UT UT UT UT UU UU UT UU UU 


Siraenctetesrietetenet strat tetra tates a 


016336 TYPLST: 
016336 005001 R1 s INITIALIZE INDEX 
016340 004737 027250 JSR PC, PREPKB :PREPARE FOR POSSIBLE KBD INPUT 
016344 004737 032562 1S: JSR PC’ TYPPRM :TYPE CURRENT PARAMETER AND VALUE 
016350 iow400 001315 TYPE ©, SCRLF TYPE <CR>,<LF> 
016354 TST tNTCHR ?SEE IF ANY INPUT AT KBD 
016360 001420 BEQ *BR IF NO INPUT 
016362 122737 000003 cosse4 CMPB = #003, INTCHR *SEE IF (#C) TYPED 
516370 001002 BNE 4 *BR IF NOT (tC) 
01 0090137 014520 ; IMP DRVTST JUMP TO ASK FOR DRIVE(S) AGAIN 
| 016376 122727 o0sse4 4S: CMPB =: #032, INTCHR SEE IF (t2) TYPED 
018404 901002 BNE 6$ :BR IF NOT (tZ) 
5201 O16405 137 016124 IMP ASKMDE JUMP TO ASK FOR NEW MODE 
S202 Ol64l2 004737 027 6S: ISR PC, ECOBAD “ECHO BAD INPUT 
| §203 O164is 737 (027250 JSR PC’ PREPKB *PREPARE FOR POSSIBLE KBD INPUT 
| 5204 Ol64ee Oe2761 O40S15 006000 8s: CMP #°MA,PRMNEM(R1) SEE IF PARAM. IS (MA) 
| 6§205 O16430 001002 BNE 10$ :BR IF NOT (MA) 
| 5206 OlbHae 062701 gone #2,R1 * INCREMENT PARAMETER INDEX 
| $207 O16436 06701 10$: ADD #2,R1 ‘INCREMENT PARAMETER INDEX 
| §208 o1e442 010102 MOV RI “GET COPY OF INDEX 
| §209 gies 062702 005650 ADD #PRMLST, Re :COMPUTE POSITION IN LIST 
| 65210 Ol64SO O22702 005676 CMP . *SEE IF DONE WITH LIST 
| Sell 16454 001333 BNE 1$ BR IF NOT DONE YET 
| Sele 16456 032737 100000 005670 BIT #81715, PT *SEE IF PATTERN 15 SPECIFIED 
| §313 O16464 001005 BNE 12$ -BR IF PATTERN SPECIFIE 
5214 Ol6466 O04 000100 162450 BI #8176, ISTKS *DISABLE KBD INTERRUPT 
521S O16474 000137 016124 IMP ASK * JUMP TO ASK FOR NEW MODE 
este oy 010662 jose Olybee epee IN 1S “USER-DEFINED PATTERN 15 :” 
25t¢ steer ipedae LR Rl SINTFIAL NDEX 
5219 016508 005737 oosse4 14S: tS INTCHR SEE IF ANY INPUT 
| 2550 pipers 00989 000003 o0ss24 MPB , INTCHR ete IF tay TYPED 
| 565 bt pesg ae IMP ORVTST St FN tFdR RIVE(S) AGAIN 
| eee pipes. ee Bhoe se OO0SS24 16%:  CMPB #032, INTCHR *SEE IF Ra) OpEd 
| 255p BIPaTe OTS? O16 ee ioe TOCASK FOR NEW MODE 
2559 staat Nite pusies 188: JSR PC, ECOBAD *ECHO BAD INPUT 
| S228 ot 04 027250 JSR PC; “PREPARE FOR POSSIBLE KBD INPUT 
| $229 eeey 737 O3eb4e 20$ SK PC’ TYPPA ;TYPE WORD XX = YYYYYY 
| 6230 016560 1 001315 T SCRLF :TYPE <CR>, <LF> 
£231 016564 062701 000002 b2,R1 : INCREMENT’ INDEX 





, 
EEE EOE e—_—_— 
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DZRENB. CMB TYPE (7) LIST ROUTI 
es g16570 922701 000040 CMP #32. ,R1 : SEE IF 1b Wo s, TYPED 
1344 BNE 14§ ‘BR IF 
016576 042777 OOC100 162340 BIC sBIT6, a$TKS PT CABLES KBD” ATESRUPT 
ee 016604 600137 O1&124 IMP ASKMDE : JUMP TO ASK FOR NEW MODE 
52 
5238 
5239 Sis aghen (0) LIST ROU : , 
eeu HROEFRULT a Pane TERS INTO, Sera Lt cs 7 
5u5 teTTY NpuTe typ fa ray C FR A ERATION 1B 
Bou aT INPUT, vein catises causes, Tin medi fe 
5245 
5246 
BSua SieelD 010600 OPMLSTS ee praes -ASK AULT VALUES DESIRED 
2546 peers Rite 032214 JSR PC, RDCHRS READ "RESPONSE 10 O DEFAULT QUESTION 
S250 016620 014520 DRVTST *(#C) RETURN 
5251 Ol6bee 016124 ASKMDE (42) RETURN ADDRESE 
S252 016624 016610 OPNLST >(¢U) OR ERROR RETURN ADDRESS 
5253 016626 005700 TST SEE IF NULL I 
peed 016630 0014 BEQ NOTDFT *BR IF DEFAULTS NOT REQUESTED 
Olbb3e 000104 005264 CMP #’D. BUFFO :SEE IF (D) 
| 5256 O18640 001405 BE LODFPT BR IF DEFAULTS DESIRED 
5257 16642 104400 4 TYPE  ,BUFFO “ECHO BAD INPUT 
5258 016646 104400 001314 TYPE SQUES 
5259 016652 000756 8R OPNLST GO ASK AGAIN 
| 5260 sLOAD ALL DEFAULT VALUES INTO Paine TER LIST 
5261 O16654 012700 005676 LODFPT: MOV #PRDFL LT,RO sLOAD DEFAULT LIST ADDRESS 
| S262 O16660 012702 005650 MOV #PRMLST *LOAD PARAMETER LIST ADDRESS 
| §263 O16664 012022 4§: MOV (RO)+ (eos *LOAD A DEFAULT VALUE 
| 5264 016666 O2e702 005676 CNP #PROFLT, Re j SEE IF YET 
5265 016672 001374 BNE y BR IF MORE VALUES TO LOAD YET 
| 3525 BtP8ts boron OO8t0 TS SEE 1 NOT DEFAULT HODE 
5268 stare polo 000001 023506 MOV #1, SEOPCT SET PASS cbt =] 
| §269 016710 000137 017412 IMP SiPass 360 RUN DFLT TESTS 
| BB) bieves posog, let stort: OR SINITIALIZE INDEX 
| TYPE CURRENT PARAMETER AND VALUE 
| $223 16722 004737 o725b2 bs: ISR PC TYPPRN i] YPE PARAMETER AND VALUE 
| §e75 Biesse 1 o1344e TYPE »BEACE t YPE ASTERISK AND SPACE 
. 8276 READ AND CHECK INPUT, IF ANY 
| §277 016736 004737 032214 ISR PC, ROCHRS sREAD OCTAL DIGITS TYPED 
| §278 O16742 014520 DRVTST 5 (#0) RETURN ADDRESS FOR RDCHRS 
| 6§379 O16744 016124 A i{ (#2) RETURN ADDRESS FOR ROCHRS 
| §280 O16 016722 8S *(4U) OR ERROR RETURN ADDR. FOR ROCHRS 
| 6§281 O16 005700 TST “SEE IF ANY INPU 
| §eg2 016752 001007 BNE 10 *BR IF ANY INPUT 
be83 O1b764 Oee7bl 040515 O06000 CMP #"MA,PRMNEM(R1) ;SEE IF (MA) JUST DEFAULTED 
16762 O01 BNE 128 *BR IF NOT (MA) 
| $285 016764 062701 00002 ADD #2,R1 INCREMENT INDEX 
€=96 016770 o004e0 BR 1e$ "BR TO MOVE ON TO NEXT PARAMETER 
£287 016772 022700 Oo00010 10$: CMP #10,RO :SEE IF 8 CHARACTERS TYPED 
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DZRENB. CNB OPEN (0) LIST ROUTINE 


1 3 BLT 14 R_IF MORE THAN 8 
eos pigee8 pega? 005264 MOV aGUeFO -(SP) ‘Bor Bure F ADDR. ol SFRCK FOR OCTBIN 
30 017004 004737 052736 JSR C, OCTBIN CHECK DIGITS AND CONVERT TO BINARY 
peal 1701 017062 14$ ;ERROR RETURN AD E S ESR OCTBIN 
i712 61 095470 MOV (SP)+,LOWOCT GET LOW BINARY BI 
5293 017016 013737 053070 oos472 MOV SHIOCT,HIGOCT _:GET HIGH BINARY BITS 
5294 ; CHECK PARAMETER VALUE | aND PUT INTO LIST 
5259S 017024 004737 033220 PC, CHK :CHECK VALIDITY OF PARAM VALUE 
3o36 017030 017062 OR RETURN ADDR. FOR CHKPRM 
529 - OPEN USER DEFINED PATTERN 15 FOR MODIFICATION, IF NECESSARY 
5298 017032 004737 032674 23: JSR p 
5299 “MOVE ON TO NEXT PARAMETER 
5300 017036 062701 ooc0te ADD #2,R1 sINCREMENT THE PARAMETER INDEX 
5301 617042 910102 MOV R1’R2 T COPY NDEX 
5302 017044 Ob2702 o0SES0 ADD #PRMLST, Re COMPUTE POSITION IN LIST 
5303 017050 O22702 005676 CMP 8PRDFLT; Re :SEE IF DONE WITH LIST 
5304 017054 dole BNE S$ BR IF NOT DONE YET 
5305 17053 137 016124 IMP ASKMDE > JUMP TO ASK FOR NEW MODE 
5306 Ol 104400 905264 14$: TYPE  ,BUFFO *ECHO BAD INPUT 
S307 017066 104400 001214 TYPE $SQUES : TYPE <?> AND <CR>, <LF> 
2308 017072 000713 BR 83 *BR TO ASK AGAIN 
ei? 
| 312 .SBTTL SET (S) NDIVIDUAL PARAM ROUTINE 
5313 : THIS ROUTINE 18 To ALLOW st ING OF ANY INDIVIDUAL 
5314 : PARAMETER iP Bye TTY INPUT. A PROMPTER (>) IS 
5315 seTirep AND tHe ROUTINE WAITS FOR INPUT OF THE FORM 
516 % XX=YYYYYY, WHERE XX I MNEMONIC FOR ANY vet ID 
1 TER tN THE LIST, AND YYYYYY IS THE DESIRED PARAMETER 
5318 ALE IN ocTAL Hous THE PROGRAM THEN ASKS FOR ANOTHER 
| $39 ARAMETER BY TYPING "> “ AGAIN. TYPING (*C) CAUSES 
5320 j MINMEDIATE BE TUN TO DRVTST, AND (+2) CAUSES RETURN TO 
| 5321 ; #ASKMDE. 
5322 
S323 017074 SETPRM: 
5324 017074 104400 O13445 TYPE PRMPSP sTYPE “> ” PROMPTER 
5325 READ AND CHECK INPUT, IF ANY 
| 6§326 017100 004737 032214 JSR PC, ROCHRS sREAD INPUT LINE 
| §327 017104 DRVTST *(#C) RETURN ADDRESS FOR RDCHRS 
| 63208 0171068 016124 ASKMDE *(#2) RETURN ADDRESS FOR RDCHRS 
| §329 O17110 SETPRM (#0) OR ERROR RETURN ADDR. FOR ROCHRS 
| §330 O17112 oooc04 CMP RO, #4 *SEE IF AT LEAST 4 CHARACTERS TYPED 
| 65331 017116 O0e00S BGE *BR IF AT LEAST 4 TYPED 
| 6§332 017120 104400 o0S264 4S: TYPE  ,BUFFO *ECHO BAD INPUT 
| §333 017124 104400 001314 TYPE SQUES *TYPE <?> AND <CR>, <LF> 
| §334 017130 000761 BR TPRM *BR TO ASK FOR INPUT 
| §335 017132 020027 000013 6S: CMP RO, #11. *SEE IF ELEVEN OR LESS CHaRs TYPED 
be3b 017136 003370 BGT y BRIE IF MORE THAN ELEVEN 
| ;SEE IF THIS MNEMONIC RESIDES IN PARAM MNEMONIC TABLE 
| Bae rates yet ONS264 O06000 98s a RUFFO, PRNNEM(RL) sm mM: MATCH Apa INPRONTC 
| 2333 yeaa arte il BEQ 10$ AMETER FOUN FOUND IN TABLE 
6341 017152 062701 oo000e2 ADD ie Rl TN RE MeNT AUTRE 
| §342 017156 010102 MOV R1,Re GET COPY OF I 
_ §343 017160 062702 oosesO ADD SPANLST, Re SEE IF ALL ENTRIES HAVE BEEN CHECKED 
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DZRENB. CMB Be A RNSIVTOUBL. PAG ROUTINE ; 


S344 O17164 022702 005676 CMP #PROFLT,R2 
5345 017170 00/364 BNE 8s :BR IF MORE TO CHECK YET 
ene 017172 003752 aie -Be as vont fanaa BR TO ECHO BAD INPUT 
8 017174 012702 ooDoDe iss MOV i s INITIALIZE BUFFER POINTER 
5349 017200 122762 000075 oos264 CMPB ss #’' =, BUFFO(R2) ; SEE IF NEXT CHAR IS “ 
5350 017206 901411 EQ 1 
5351 17210 122762 O00040 005264 CMPB 4040, BUFFOCRE) See IF NEX xT -HAR 15 IS A SPACE 
eaeg fiveis phlsio ince SPR OREMENT BUFFER POINTER 
5354 Ol7ece2 122762 000075 o0S264 CMPB 4=s«#’=,BUFFO(R2) ;SEE IF NEXT C wo" 
B05 017230 001333 8 4g *BR TO ECHO INVALID INPUT 
1 123: I R2 * INCRE BUFFE TER 
5357 0172034 O20e00 CMP Re, RO SEE IF MORE CHARS LEFT IN BUFFER 
5358 017236 002330 BGE $ *BR TO ECHO INVALID INPUT 
5359 017240 l2e7b2e OO0040 905264 CMPB 8O40,BUFFO(R2) ;SEE IF NEXT CHARACTER IS SPACE 
5360 017246 091003 BNE 14$ *BR IF NOT A SPACE 
5361 017250 Oo0S202 INC Re INCREMENT BUFFER POINTER 
5362 Oi7ebe 0202090 CMP Ke, RO j SEE IF MORE CHARS LEFT IN BUFFER 
5363 017254 O023cl BGE 4§ *BR IF NONE LEFT 
5364 017256 160200 14$: SUB R2,RO ‘SUBTRACT POINTER FROM CHAR COUNT 
5365 017260 O20027 OoO0CI0 CMP RO, #10 *SEE HOW MANY CHARS LEFT 
5366 017264 003315 BGT 4 *BR IF TOO MANY LEFT 
5367 ;CHECK FOR LEGAL PARAMETER VALUE’ 
5368 017266 062702 O0S264 ADD #BUFFO, Re ;GET ADDRESS OF DIGITS 
5369 017272 010246 MOV Re, -(SP) :PUT IT ON STACK FOR OCTBIN 
5370 017274 004737 052726 JSR PC, OCTBIN ‘CHECK DIGITS AND CONVERT TO BINARY 
27 017300 017120 4g ERROR RETURN ADDR. FOR OCTBIN 
1 1 005470 MOV (SP)+,LOWOCT  :GET LOW BINARY BITS 
5373 017306 013737 053070 o0s47e MOV SHIOCT HIGOCT ;GET HIGH BINARY BITS 
5374 017314 O04 032220 ISR PC, CHKPRM *CHECK VALIDITY OF PRRANETER VALUE 
6375 0173¢0 0171 ug *ERROR RETURN ADDR. FOR CHKPRM 
5376 ;OPEN USER-DEFINED PATTERN 15 FOR MODIFICATION, IF NECESSARY 
5377 017322 904737 032674 ISR PC, MODPIS 
6378 0173c6 BR SETPRM ;RETURN TO ASK FOR ANOTHER PARAMETER 
2308 
5381 
5382 .SBTTL RUN (R) TESTS ROUTINE 
5383 STHIS ROUTINE IS ENTERED TO SET UP THE RUNNING OF TESTS, 
5384 ; HUHOSE PARAMETERS HAVE BEEN DETERMINED. IT FIRST ASKS 
5285 *#FOR THE DESIRED NUMBER OF PROGRAM PASSES, AND STORES 
5386 -#THIS IN SEOPCT FOR THE END OF PASS ROUTINE. THEN HE 
5287 *#DRIVE LIST IS SCANNED FOR THE FIRST DESIRED DRIVE, A 
5388 THE HEADER ON SECTOR O IS READ TO GET THE FORMAT For? THIS 
5389 *#DRIVE. THIS IS STORED IN THE FORMAT BYTE, AND A JUMP IS 
5390 *#MADE TO THE FIRST TEST. 
5391 THE END OF PASS ROUTINE RETURNS TO “NEWORV" TO SELECT 
5392 *#EACH SUCCESSIVE DRIVE FOR TESTING, UNTIL THE ENTIRE PASS 
2233 : DRIVES) IS COMPLETED. 
5395 017330 RUNTST: 
53% - INPUT THE DESIRED NUMBER OF PROGRAM PASSES 
397 017330 104s 011031 4g: TYPE NTPAS “ASK FOR NUMBER OF PASSES 
398 017334 004737 032214 JSR PC, RDCHRS nem RESPONSE 


$399 017340 014520 DRVTST (tC) RETURN ADDRESS 
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DZRENB. CNB RUN (R) TESTS ROUTINE 


S400 O17342 016124 ASKMDE i (+2) RETURN ADDRESS 
5401 017344 017330 4g :(tU) OR ERROR RETURN ADDRESS 
Sud2 617346 005700 TST RO ‘SEE IF NULL INPUT 
5403 017350 001402 BEQ bS -GO_ASK AGAIN 
54 O17sbe bee700 oocoos CMP #5,RO0 :SEE HOW MANY CHARS TYPED 
54 17356 O02 BGE ct :BR IF S OR LESS 
5406 Ol 104400 0052 6$: TYPE  , BUFFO “ECHO BAD INPUT 
540? 017364 104400 001314 TYPE SQUES 
5408 017370 000757 BR $ :GO_ASK AGAIN 
S409 017372 Die? o0S264 QS: MOV #BUFFO,-(SP) | 3GET BUF ADDR ON STACK FOR OCTBIN 
5410 017376 004737 052736 ISR PC, OCTBIN “CHECK DIGITS AND CONVERT TO BINARY 
E411 017402 017360 6$ ‘ERROR RETURN ADDRESS FOR OCTBIN 
5412 017404 012637 023506 MOV (SP)+,SEOPCT SET DESIRED NO. OF PASSES (1-77777) 
5413 017410 001763 BEQ *BR IF O fo GAIN 
5414 -THIS IS THE ACTUAL START OF A RUN WITH X PA 
541S 017412 005037 001326 STPASS: CLR $F RS spit Peace SNUMBER 
S4i6 O17416 112737 000001 003110 MOVB -SET “RUNNING TESTS” FLAG 
S417 017424 012737 177777 O0SS02 NEWPAS: MOV tere SRIVE HINTIAL Ze DRIVE NO. TO -1 
6418 017432 005037 901330 CLR SDEVCT *INIT APT DEVICE COUNT TO O 
5419 pCHECK DRIVE LIST FOR MORE DRIVES TO TEST ON THIS PAS 
S420 017436 o00000 177776 NEWDOR uPRO, JaPS *RE-ESTABLISH PRIORITY O 
5421 gira 012706 001100 SSTACK. SP * RESTORE THe STACK 
S422 017450 37 003120 CLRB  ORVERS ‘CLEAR ERROR COUNT FOR CURRENT DRIVE 
S423 017454 005524 CLR INTCHR * CLEAR Try INPUT BUFFER WORD 
5424 017460 005237 o0ssde2 INC DRIVE : INCREMENT 
5425 017464 022737 000010 oossoe2 CMP #10, DRIVE *SEE IF DONE iy H THIS PASS 
S426 017472 001002 BNE 2s *BR IF NOT DONE CHECKING LIST 
S427 017474 137 023454 IMP : JUMP IF DONE WITH THIS PASS 
S428 917500 013700 o05S02 23: MOV DRIVE. RO GET NEW DRIVE NUMBER 
5429 017504 105760 005610 TSTB DRVLST(RO) *SEE IF THIS DRIVE IS MARKED IN LIST 
5430 017510 001752 BEQ NEWDR ?BR IF NOT MARKED, TO CHECK ANOTHER 
6431 017512 105037 001102 CLRB ST ST Nt INIT TEST NUMBER TO O 
5432 017516 001304 CLR ST IMS ‘INIT ITERAT TON COUNT 
| 5433 017522 010037 001332 MOV UNIT ‘SET DRIVE NO. 
; 5434 “READ THE HEADER ROA SECTOR 0, TRACK 0,cYL O Ai” GET _ THe DRIVE FORMAT 
| 5435 017526 004737 030726 JSR PC, INITSS NIT. DRIVER PA 
| 5436 017532 112765 0001°5 00001 MOVB § #ROHEAD, P.CMND crit SET READ HEAGER S ORHAN” 
6437 017540 004737 040716 JSR PC, DR -DO'READ HEADER 
| 5438 017544 132765 oo0020 000007 BITB 4#8.CFMT,P.CSIH(RS) ; s CORFLERENT THE FORMAT BIT 
5439 017552 O014 BEQ $ VEN TO THE CONTROLLER 
S440 017554 142765 000020 000007 BICB #8.CFMT,P.CSIH(RS) ; AND DO READ HEADER. 
S441 017562 BR § > WILL CAUSE SECTOR 0 HEABER 
| 5442 017564 1 oo0c020 op0007 4S: BIS8 #B.CFMT,P.CSIH(RS) : TO BE READ. 
| 5443 017572 004737 040716 6S: JSR PC: DRVCAL > RE ER O 
, 5444 17576 105037 115 CLRB FORMAT s INITIALIZE FORMAT BYTE TO 0 
c44s 01 013737 4% 005510 MOV S2,FS INIT SECTOR LIMITS FOR 22(DEC) SECTOR FMT 
S446 017610 013737 005666 005512 MOV $3;LS 
5447 017616 TST RKDB(R2) ;POP SILO ONE TIME 
S448 017622 O32762 O01000 oo00e4 BIT #BIT9,RKDB(R2) ;TEST FORMAT BIT IN HEADER WORD 2 
| 5449 017630 OOl41 BEQ 8$ BR IF 22 SECTOR F 
S450 017632 152737 o00020 003115 BIS8  #B.CFMT,FORMAT ;SET 20 SECT BR EORMET FOR THIS DRIVE 
S451 017640 013737 OO0S660 005510 MOV SO,FS INIT SECTOR LIMITS FOR 20(DEC) SECTOR FMT 
5452 017646 013737 O0S66e 005512 MOV S15 
5453 017654 013737 005674 OOSSO4 és: MOV ST; STALLS ;SET NUMBER OF UNIT STALLS DESIRED 
E454 017662 004737 030726 ISR PC; INITSS INIT THE S.S. 
| 5455 017666 004737 037276 JSR PC, REDBSF READ BAD SECTOR FILE FOR THIS DRIVE 
| 




















VERIFI 
ZRENB. CMB RUN (R) TESTS ROUTINE 
S456 017672 113737 005502 011163 MOVB On TVE DRVNO ;GET D atv iy 
177’ 11163 DRVNO 


17706 1044 1114 FIRE rrstb evn Wee ectahe Rec Bary vE x" 
S459 017712 005737 001326 TST pas F TH ns. fs FIRST PASS 


S460 0177 001 BNE 108 ioe tl NOT FIRST PASS 
S461 Boe ieee 033524 JSR PC, DRVSER ;1YPE “DRIVE SER. NO. 





S462 017724 904737 033644 JSR PC’ CRTSER ; TYPE-"CART. SER. NO. XXXXXXXXXXX™ 
S463 017730 032737 000020 O0Sé7e BIT #BiT4, CS SEE IF BAD SECTORS SHOULD BE TYPED 
464 17738 pou REG F_N 

465 01774 473¢ 037564 SR TYPBSF : TYP Pi SECTOR FILES 

ahs] 017744 005037 O05S24 10$: CLR INTCHR INIT. TTY INPUT CHAR BUFFER 

5468 
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CMB Tl OFFSET-TO-FAILURE MEASUREMENTS 


P.CYLN(RS)  ;NEXT 
6525 Oedlee Oee76S 000632 000002 CMP eae, P.CYLN(RS) ;SEE IF CYL = 632 


DEREN-8 = RKBLI/BKO SUBSYSTEM VERIFICATION. : PART 8 MACYL1 27(732) O3-NOV-76 21:43 PAGE 130 
5470 s 5 fecT 1 OFFSET TO-FAILURE MEASUREMENTS 
547 sATEST 1 OFFSET-TO-FAILURE MEASUREMENT 
54 :*IN THIS TEST A REPEATED PATTERN 072307 (0CT) "Is WRITTEN INTO ALL 
5473 WORDS OF SECTORS FS AND LS ON TRACKS O-2 OF CYLINDERS FC AND LC. 
474 t¥THE SAME SECTORS ON ADJACENT CYLINDERS ARE Teh WRITTEN WITH 
475 :* 167230(0CT) (10 ESTABLISH A KNOWN PATTERN) BUT THEY NOT TESTED 
5476 THEN, EACH DESIRED SECTOR IS WRITE CHECKED WITH INCREASING POSITIVE 
5477 OFFSETS, UN ER A “DATA TYPE” ERROR OCCURS, OR THE FULL RANGE 
5478 OF POSITIVE OFFSETS HAVE BEEN SECTOR IS WRITE 
5479 j CHE CKED WITH INCREASING NEGATIVE HEAD OFFSETS BINT 
ease HORIGING NEAT TIE arFoeT le Pot Ont ORDER ‘ ECTOR Pe NDT Bae 
Eqs txCYLT ERS FC apne Lt Ee HE abe 5 Ney BR Rae | BND FINALLY PoR 
5483 STRACK THE E OFF SET-TO-PATLURE RESULTS ARE REPORTED IN ORDER OF 
S484 EINGREA ING TRACKS, AS FOLLOWS 
Be ii OFFSET-TO-FAILURE MEASUREMENTS : 
54g9 :% TRACK CYLN SECT +0FST <OFst 
5489 * (UIN) (UIN) 
54909 2 =X = XXK XX OXXXK—XXKK 
549] 2% Xo XXK XX OXXKK XXX 
5uge 7x X XXX x XXXX  XXXX 
Be cays 
54as NOTE: IN AN ADRS 200 DEFAULT RUN, FS DEFAULTS TO 0, AND LS DEFAULTS 
5ugp 70 I0(DEC), FOR THIS TEST 
5497 ETESTSTETST SEPESESTTESTCSTSSESESTTEST SESE T TEST ETTSTT ETT TT 
5498 917750 oo0004 Tl: SCOPE 
5499 017752 012737 ON0001 001324 MOV #1, STESTN -SET TEST NUMBER IN APT MAIL BOX 
017760 004737 -032060 JSR PC; SETTUP det T UP FOR LOOP ON ERROR 
“E501 017764 004737 032126 15k PC’CHKITR ; SEE IF ITER. NO. = 0 FOR THIS TEST 
5502 017770 000137 O2i060 t2 O NEXT TEST 
5503 : RETURN HERE FROM CHKITR IF TEST SHOULD BE RUN 
5504 017774 004737 030726 ISR PC, INITSS s INITIALIZE DRIVER PARAMS AND SUB-SYS 
550S 020000 004737 027250 JSR PC’ PREPKB ‘PREPARE FOR POSSIBLE KBD I 
E506 wie) tbr WRITE THE S see WRITE CHECK THER 
5 020004 105737 003106 RS 200 DEFAULT RUN 
5508 oO20010 001005 ‘BR 
i § 020012 005037 005510 ate 2 ET a Ay 4" 
5510 O20016 12737 000012 oossi2 MOV #10.,LS ISET LS = 10(DEC) 
6511 O20024 013765 OOSESO OO0002 3s: MOV FC. P°CYLN(RS) :SET CYL = FC 
SSi2 o20032 113765 005510 OO0004 MOVE FS{P.SECT(RS) ;SET SECTOR = FS 
| 5513 O20040 105065 Op0005 CLRB =P. TROK (RS) ‘SET TRACK = O 
| §514 Oe0044 613737 O0S6S2 onsso6 MOV LC, CYLNOR 
5515 O200S2 022737 O00632 Oo0SéS2 CMP #632,LC SEE IF LC =632 
| 5516 Oe0060 001002 BNE 4S :BR IF NOT 6 
5517 O20062 005337 oOsso6 DEC CYLNOR “MAKE IT 631 (PRESERVE BSF) 
| 6§518 Oe0066 012703 072307 4g: MOV #72307,R3 :GET pate P ATTERN 
| §519 O20072 004737 035772 ISR PC. WRTSEC DO WRITE AND WRITE CHECK 
| §520 020076 012703 167230 MOV #167230,R3 *DATA FOR AJACENT CYLS 
S521 O20i02 005365 o00002 DEC P.CYLN(RS) NEXT LOWER CYL 
| E522 020106 100402 BMI 6$ *BR IF CYL NEGATIVE 
| 65523 020110 004737 035772 ISR PC, URTSEC D0 WRITE AND WRITE CHECK 
| §524 Oe0114 062765 00002 oo0002 6S: ADD HIGHER CYL 
i 
| 
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DZREN-B - tenes | we SUBSYSTEM VERIFIC 
DZRENB. CNB 0 TO-FAIL 
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000031 
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1 000060 
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o0551e 
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OOSS46 
o0SSS0 


000001 


000001 
900001 
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000001 
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URE NEASURENENTS 


BNE 8f BR IF (Nor 

CMPB ss #2, P.TRCK(RS) =; SEE 

EQ o$ iBR I "Ye, TO PROTECT IT 
8$: SR C,WRTSEC 0 WRIT BND WRITE CHECK 
10$: DEC P.AYLN(RS) RESTORE CYL 

INCB =P. TROK(RS) INCR T Rack” 

CMPB  43,P.TRCK(RS) TRACK = 3 YET ? 

BNE 4g’ :BR IF_NOT YET 

CHP P.SECT(RS),LS ae IF SECTOR = LS 

MOVB LS.P.SECT(RS) :SET SECTOR = LS 
12$:  CLRB -P. TRCK(RS) iSET TRACK = 0 

aR 4g TO CONTINUE WRITING 
14S: CHP P.CYLN(RS), cYLNORe, Nore IF CYL = LC 

MOV CYLNOR P. CYLNCRS) -SET CYL 

MOVB P.SECT(RS) | ;SET SECTOR = FS AGAIN 

BR 3 RONTINUE WRITING 
j INITIALIZE PARAMETERS FOR sever! MEASUREMENTS 
16$: BIT #81T1,CS »SEE IF REPORTS ARE INHIBITED 

N *BR IF INHIBITED 


F N 
188: MOVE FT,P.TRCK(RS) $SET TRACK = FT 


MOV FC;P. CYLN(RS) ;SET CYLINDER = FC 
MOVB FS’P.SECT(RS) :SET geCTOR = = FS 
sLOAD THE R/W BUFFER FOR WRITE CHECK 
NOV WRBUE RO EET “BUFFER ADDRESS 
MOV :PREPARE TO LOAD 400(0CT) WORDS 
19$: MOV WO7e307, (RO) *LOAD A WORD INTO BUFFER 
DEC ~—=._«aRIL *DECR COUNTER 
BNE: 195 *BR IF NOT DONE YET 
20$: CLR RY INIT (+) OFFSET VALUE 
CLR RO ‘INIT OFFSET NUMBER TO 0 
MOV e- 1, PLOFST tINITIALIZE CURRENT FAILING (+) OFFSET 
: INITIALIZE CURRENT FAILING (-) OFFSET 


MOV NGOFST 
-PERFORM OFFSETS ‘aNd WRITE CHECK 
225: NOV B  #SEEK,P.CHND(RS) ;SET SEEK COMMAND 


PC, DRVCAL 
MOVB  ROLP.OFST(RS) SET CURREN T MOFFSET 
MOVB #OFFSET.P.CMND(RS) ;SET OFFSET COMMAND 


DRVC PERFORM OFFSET 
MOVB HURTCHK , P. CHND(RS) -SET WRITE CHECK COMMAND 
MOV #WRCKHD,A.ABNL ;SEt SPECIAL ERROR HANDLER ADDRESS 


CLRB  WCEFLG sCL EAR WRITE CHECK ERROR FLAG 
ISR PC. DRVCAL ?PERFORM A WRITE CHECK 

MOV #ERRHDL, A. ABNL RESTORE ERROR HANDLER ADDRESS 

MOVB §_#SUBCLR:P P.CHND(RS) EAR CMND 

JSR PC, DRVCAL eden THE SUBSYSTEM 

TTB © WCEFLG CEE IF A WAGE CHECK ERROR OCCURRED 

BNE 26$ *BR IF AN ERROR OCCURRED 

MOV RO,RL :GET A COPY OF CURRENT OFFSET 

INC RO : INCREMENT T 

ADD #25. .R4 ‘INCR OFFSET VALUE BY 25(DEC) UIN 

BIC #177700,R1 *MASK FOR MAGNITUDE BIT 

CMP #60,R1 :SEE IF MAX OFFSET APPLIED IN THIS DIRECTION 
BNE 22$ *BR IF NOT YET 


ae eee 








dd 


eo 
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NB. CME OFFSET-TO-FAILUSE MEASUREMENTS 
ees Secuee Doigis Be | Ue ee Ue ee PP SAT CURRENT SECTOR RECU 
4 H i io) SULT 
ooo20c 248: MOV 8200,R0 Fit FOR NEG OF FETs 
74 cue RY INIT (=) DE FSeT ego To 0 
717 228 :8R TO APPLY NEG OFFSETS 
o09200 26$: BIT #8117,RO : SEE IF NEG OFFSETS DONE YET 
4 SEQ 28 :BR IF NOT YET 
oossso MOV RY. NGOFST :SQVE THIS FAILING (- ) OFFSET VALUE 
328 :BR TO PRINT CURRENT ech TOR 
3 1 ooss4é 288: MOV RY PLOFST : THIS FAILING (+) OFFS fe wale 
2R :BR TO APPLY NEGATIVE OFFSETS 
$3 posog2 scss72 328: SIT s8IT1,cs : SEE IF REPORTS INHIBITED 
4 1051 ONE 43§ *BR IF INHIBIT 
3 ;TYPE OFFSET RESULTS FOR. FOR THIS SECTOR 
ES] 116501 900005 MOVB STRCK(RS),R1  ;GET TRACK NO. 
5101 MOV Ri,-(SP) ?PUT IT ON STACK 
1044 TYPOS :TYPE IT 
.BYTE 3 23 DIGITS 
"BYTE : SUPPRESS 
pOcue peenee nee BoeycntRS) (SP) YL ON STACK 
aac TYPOS : PE f 
gos BYTE 4 ty DIGITS 
> : scoeti : TE 0 : SUPPRESS 
pSpees Tiesoh ocooo4 nove p SECYRS) Ra ;GET 
161 MOV Ri, -( :PUT IT ON STACK 
1 TYPON :TYPE SECTOR 
19 1 013422 TYPE ace 
ll Beveoo 005546 TST bros ;SEE IF THERE WAS A FAILING (+) OFFSET 
12 1 BPL iB IF THERE WAS 
13 S060 104400 011265 TYPE eras 
14 le: ok § : CONTINUE 
1S 020614 013745 ooss4s 36S: MOV PLOFST,-(SP)  :PUT (+) OFFSET VALUE ON STACK 
18 020620 TOHON aah ne TyPS : :TYPE IT IN DECIMAL 
18 eed 005550 TST Ago ce ;SEE IF THERE WAS A FAILING (-) OFFSET 
1 196083 BPL 40$ BR IF THERE WAS 
1 011265 TYPE NOFALS :TYPE " NONE” 
p00403 BR Gog : CONTINUE 
‘013746 O0S5S0 40S: MOV NGOFST, -(SP) sPUT (-) OFFSET VALUE ON STACK 
bedbus YO44O4 Tyeps : TYPE IT_IN DECIMAL 
104400 001315 42; TYPE 3T (CR>, <LF> 
-SET UP TO TEST ters SECTOR 
020654 126537 OO0004 o0ssi2 43§:  CMPB SECT(RS),LS ;SEE IF SECTOR = LS 
020662 001404 BEQ ug :BR IF YES 
Beers bug oossie cocoon vB GayP SECTORS) aET PEF LE lero 
74 e657 coooo2 o0ss0& 44s: CHP Ferns, cyLNok so = LC 
01 MOV CYENOR P. CLNCRS! ae! Tait = Ue LC. 
020712 11 51 46S:  MOVB  FS.P.SECT(RS) 
020720 000137 320316 IMP i$ Tet HIS EE CTOR 
be07e4 105668 48S: INCB P.TRCK(RS) ‘INCREMENT TRACK 
020730 1 900003 op0005 CMPB 40s#3, P. TRCK(RS) SEE IF TRACK = 3 
020736 001404 BEQ so$ BR IF YES 
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OFFSET-TO-FAILURE MEASUREMENTS 


005650 


042410 
003131 
044624 


g00o0e 
o00cC: 


005510 
00SSi2 


ppeets 
00S51 


occted 


001324 


MUV FC,P.CYLN(RS)  ;SET CY 
SF ‘4 i007 T SI Tas, SECTOR 
SOS: MOVB sRECAL.P.CMNO(RS) ; 


JSR PC, ORVCAL it CL ERE AL 

MOV £5 PE ph bes FS, FEC ca SRaTE 22 SECTORS 
MOV 537.5 

TSTB =- FORMAT :SEE IF 22 SECTORS 

BEQ Sug :BR IF YES 

MOV 50,FS {RESTORE FS,LS FOR 20 SECTORS 
MOV 51,45 

IMP TST2 ;JUMP TO NEXT TEST 


s2THIS 1S. THE THE DRIVER, USED WHEN A 
YPE" ERROR 18 1S TAPE TED ED (AND VALID). , 
lckwos B07 BuCE,P.CS2(RS) SEE IF URITE CHECK ERROR OCCURRED 


BR IF WCE 
;CHECK FOR OTHER “DATA TYPE" ERR RROR 


BIT SHVRC!DTE! OPI!DCK,P. ER(RS) 
SNE :BR IF A DATA ERROR OCCURRED 
IMP ERRHDL 560 HANDLE 

4S: INCB WCEFLG :SET WRITE RITE CHECK ER ERROR FLAG 
IMP RETNML TAKE NORMAL 


ff FERSAALERELALALLAELESELELLEELLELELELELLLALERLLELLASLLLLLLAELLELES 
TEST 2 NPR/MEMORY DRESSING TEST 

i#TN THIS TEST, MEMORY WORD ADDRESSING CAPABILITY DURING RKO6 NPR’S, 

* TESTING Ne Brie’ THE XXDP LOADER IS , IF PRESENT, AT ADRS RWBUF. 
: STHEN STARTING RST ADDRESS OF THE 1K MEMORY BLOCK 


Filia (teas 
SSCSTAR ING hare 1) Pe Too EACH OF UP TO 64K ( ING UPON THE 
: AMOUNT oF  PaysicAl MEMORY). THESE NUMBERS CT UNTQUE ADDRESSES 


eg 
-. 


j EMETHIN He Buk NEXT I THE 64K WORDS. Ax 0 THE DISK 
;#0R Ore Bie Se TTOA of SCALED, IE ANETE }. THEN ZERO E ENT TRE BLOCK 
#IN MEMORY, AND HE DATA BACK FROM THE DISK. AT PHYSICAL 
: ADDRESSES THE DATA TO THE DATA WRITTEN. TYPE FAILING 
VIRTUAL (IF MEM. MGT.) AS WELL AS PHYSICAL ADDRESSES. AND THE GCOD 
*#AND BAD DATA, FOR UP TO FIRST 10(DEC) FAILING LOCATIONS 
2% IF MEMORY IS NSTALLED BNO T TS ADDITIONAL MEMORY TO 
; HEXERC TSE REPEA THE AS ot SSING TEST, FOR EACH OF THE 
} ea. oa ea 

MOV 82, STESTN ;:SET TEST NUMBER IN APT MAIL BOX 

JSR PC, SETTUe :SET UP FOR LOOP ON ERROR 

JSR CHKITR :SEE IF ITER. NO. = 0 FOR THIS TEST 

JMP ret : JUMP TO NEXT TEST 
RETURN HERE FROM CHKITR IF TEST SHOULD BE RUN 

ISR PC, INITSS s INITIALIZE DRIVER PARAMS AND SUB-SYS 

JSR PC, » PREPKE *PREPARE FOR POSSIBLE KBD INPUT 
;SAVE XXDP LOADER, IF PRESENT 

JSR Pt, FNOXDP eet STARTING ADR OF XXDP 





' 


pene RK611- —_ saat Se en dered 


SRENB. CNB 
S694 021120 012737 O&4ST7Y 
eS O21) oose44 
S63 ei! 030974 
4 113 igr3e Sooo 
Seas Bettas Aisae 999002 
re 21160 004737 937028 
Beli70 bosrof 
5704 G211Z2 10046 7 
Be eis ba om 
031 i 
5708 elem 
021 1 o00012 
5710 Geiele 1 005600 
11 O21 13701 005602 
| &713 O51554 04 177774 
5713 eles 180165 900007 
14 051534 056216 
5715 Oele¥d 100010 
| §717 oe1e42 013737 005600 
| 5718 Qeleso 013737 005602 
| §719 Gelese 004737 030300 
| 5720 
| 1 1 
«BEE DSISSE Biaea? DeLee 
«Bee RIERA Biiees bateee 
| -B55e steno Colrec Baetes 
| 8736 O21312 004737 40340 
| §7—7 031316 005003 
| 5728 021320 004737 036100 
021324 11 121 
021332 0047 
| §73] 001336 004737 036232 
«8732 21342 104410 
| 2733 021944 004737 037230 
| 8735 921350 
| 8736 021352 004737 o30S02 
| Brae Betsee ae Celse 
2536 Dsised BbeOs? 172516 
6749 0921370 
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E743 
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E7ug 
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Y WORD ADDRESSING TEST 


ooss4e 


003124 
125 


000910 


Muv SRWBUF,XDPSAV  ;SET XXDP SAVE AREA ADR 
CLR xOPSAV TE 
ISR PC, Sa GO SAVE XXDP LOADER 
MOVB 81, XOVLAD SET INDICATORS 
MOVE = #1_ XDPSVD 
MOV 8-1, PATRN ;SET FLAG FOR SVPRMS 
INIT PARAMETERS, BEGIN TESTING 
4 TR pC Se UP re ne T FOR THIS a) 
OR iSEe Aut eR CP MEMORY TESTED 
an 3S RS) iT OATy WORD. ROUNT TO 65,536(DEC) 
TST Ri 2M BE POO ENT SHoULe BE eee 
BNE 6$ Bae IF YES 
NEG RO 
MOV RO,P.WC(RS) ;SET WORD COUNT 
6S: MOV MA;P.BALO(RS)  ;SET BA BITS O-15 
MOV MA+2 Ri -GET MA BITS 16-21 
BIC be Rl *MASK FOR LO 2 BITS 
BI R1.P.BAHI(RS)  :SET BA BITS 16,17 
TS Sktii :SEE IF MEM MGT PRESENT 
BPL 14$ BR IF NOT 
;SET UP MEM MGT 
MOV MA, PMA ;SET BUFFER ADDRESS 
MOV Mate. PMA+2 
JSR PC, PREPAR ;PREPARE MEM MGT REG’S AND UNIBUS MAP 
erm SE Pra Breas 
JSR Pe? SET uP seET an atte) ErROR 
JSR PC, SVPRMS :SAVE PARAMS FOR T 
JSR PC’ LDMEMI *LOAD THIS MEM BLK ier FRCRENENTING DATA 
MOVB § 8WRDATA.P.CMND(RS) -SET WRITE DATA COMMAND 
JSR PC, TRNSFR sWRETE THe DATA 
CLR x) :SET DATA WORD = 0 . 
JSR PC, LOMEM2 *LOAD MEM BLK WITH ALL ZEROS 
MOVB §SRODATA,P.CMND(RS) ;SET READ COMMAND 
JSR PC, TRNSFR READ THE DATA FROM DISK 
JSR PC, CKMEMI *PERFORM SOFT. COMPARE OF DATA 
sc *CHECK FOR INTERNAL LOOP ON ERROR 
;GET NEW MA FOR NEXT TRANSFER 
JSR PC, INCRMA ;COMPUTE NEXT 
BR 4§ ;G0_ SEE IF MORE MEMORY TO TEST 
sos: JSR PC, GETXDP *RESTORE XXDP LOADER 
TSTB  ——- UBAPRS SEE IF UNIBUS MAP PRESENT 
BEQ Sus *BR IF NOT 
“= CLR aaSR3 *DISABLE UNIBUS MAP 


© KELEFSEERERER RAE SARS ARERE REE RAL SHELA SSLREKSLERSLHERAREL KS SHER ER 
TEST 3 NPR/MEMORY BLOCK ADDRESSING TEST 
IK #1N THis Test, MEMORY BLOCK ADDRESSING CAPABILITY DURING RKO 
THE XXDP LOADER IS SAVED, IF PRESENT, AT ADRS RWBUF. 
ADRS OF THE NEXT 1k 


t BEFORE Fete TING BEGINS, 
; "MEMORY WILL BE TESTED STARTING AT THE FIRST 
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K ADDRESSING TEST ‘ 


ithe te "ist secrn gy bk WARTTING SINGLE NUMBER INTO ALL LOCATIONS OF 


feet H BLOCK, He nt Nuke 1h Ene EACH “BLocK Gn By DIS A Ar EpoReSs veer fas 
E NEES TO AVO BpeTRUCTION oF THE BAD 


HHSECTOR, rf RO T ON TE NEMORY Maal THEN READ THE DATA 
70 Tee Tee Proven Sate RODRESSES. 00 DO TH THIS roe ett g4K vet OcKs, 
FoR THE Fines PoRST Oe 


SENT 
247 : Unes AS SCRIBED BO C) FAILING 
Sree EACH Bak MEMORY BLOCK. 

; 2 eg separ panes 

, STESTN - SET TEST _NUMBE NUMBER IN APT MAIL BOX 
rE F soul rf IF HER. M0 NO. ON ERROR FOR THIS TEST 
: RETURN HERE FROM ores IF 2 Nery le 
JSR PC, INITSS sINITIALIZE DRIVER PARAMS AND SUB-SYS 
JSR PC; PREPKB *PREPARE FOR POSSIBLE KBD INPUT 
;SAVE XXDP LOADER, IF PRESENT 
JSR P&. FNDXDP sCOMPUTE STARTING ADRS OF XxDP 
MOV #RUBUF,.XDPSAV SET XXDP SAVE AREA ADDRESS 
CLR XDPSAVS 
ISR PC, SAVXDP :GO SAVE XXDP LOADER 
MOVE #1; XOVLAD :SET INDICATORS 
HOVE 81° XDPSVD 
8-1, PATRN ;SET FLAG FOR SVPRMS 
; INIT PARATE TERS, “WRITE AND READ’ BACK ALL MEMORY BLOCKS 
SELECT sINIT COMPARE FLAG 
2s: SR PE EE TUPH SINIT PARAMS 
MOV #1;°R4 :INIT DATA WORD 
45; JSR PC? MXWRDC :COMPUTE MAX WRD CNT FOR THIS MA 
TST RI *SEE IF ALL MEMORY TESTED YET 
BMI 30$ °BR IF DONE WRITING AND READING 
CLR P.WC(RS) SINIT WROD CNT TO 65,536(DEC) 
TST Ri *SEE IF WRD CNT SHOULD BE 6553 
BNE 6$ BR IF YES 
NEG RO 
MOV RO,P.WC(RS) ;SET WORD COUNT 
6S: MOV MA,P.BALO(RS)  ;SET BA BITS O-15 
MOV MA+2 RI -GET MA BITS 16-21 
BIC 8177774, R1 *MASK FOR LO 2 BITS 
ISB RI,P.BAHI(RS)  ;SET BA BITS 16,17 
ST skt1i -SEE IF MEM MGT PRESENT 
BPL 14 *BR IF NO 
;SET UP MEMORY MANAGEMENT 
MOV MA, PMA ;SET BUFFER ADDRESS 
MOV mate. PMA+2 
JSR PC EREPAR ;PREPARE MEM MGT REG’S AND UNIBUS MAP 
14$: TST SELECT ;SEE IF COMPARES SHOULD BE DONE YET 
BNE 20S *BR IF YES 

*WRITE AND READ THIS MEM BLK ON RKO 

les: JSR PC, BVP RMS : SAVE PARAMS FOR THIS XFER 
MOV RY, GET DATA WORD 
JSR LOMEM2 *LOAD MEMORY BLK WITH THIS WORD 
MOVB WMADATA P.CMND(RS) ;SET WRITE COMMAND 
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021630 004737 040340 JSR PC, TRNSFR WRITE THE DATA ge 
les 09737 0361 FSR PE LONEN ZERO THE BLK IN MEMORY Dal 
Bsigas Qierée B801e1 oooo01 Hove akODATAP. CHNDCRES” SET READ C 45 4° 
810 Oe1e50 004737 O40340 ISR PC, TRNSFR sREAD THI aq BACK on ad 
eet Bs iPee neha 037230 SR PC, INCRMA -COMPUTE NEW MA TO TRY 
5813 Oeléb2 000710 38 4 *GO WRITE AND READ NEXT BLK 
pelt -PERFORM SOFTWARE COMPARES OF ALL ME BLOCKS 
sete Glebe Otay 036244 20s: ee OBC CRMEN RET OORE THTe BLK TO GOOD DATA WORD 
Beis B51P58 rie INC + INCREMENT HE DATA WORD 
5818 021674 O04737 037230 JSR PC, INCRMA GET NEW MA TO TRY 
3819 621700 000701 BR GO COMPARE MEM BLK 
5821 021702 137 005526 30S COM SELECT sCOMPLEMENT THE FLAG 
eee 021708 001401 BEQ *BR IF ALL NOW 
171 1 BR -BR IF C SHOULD BE DONE NOW 
5824 O2l7le 737 sy ISR GETXDP RESTORE XXDP 
S825 Oe1716 1 003134 TSTB  UBMPRS *SEE IF UNIBUS MAP PRESENT 
5826 021722 01402 BEQ 54S BR IF NOT 
5827 021724 ? 172516 CLR #SR3 “DISABLE UNIBUS MAP 
5828 021730 SHS: 
5959 
5830 


g 


£  KERLAALAELALELELELLLLLELALLLLLA LALA LL ELLE LELRALELALELLLE LALLA LEE 
:&TEST 4 NPR/MEMORY DATA PATTERN TEST 
BEFORE TESTING, THE XXDP LOADER IS SAVED, IF PRESENT, AT ADRS 
#RWBUF PHYSICAL MEMORY LOCATIONS , STARTING AT THE 
MEMORY BLOCK BEYOND RWBUF+6000(0CT), 


Bees 
fe 


°% CHOSEN IN PARAME (THESE ARE THE SANE PATTER 

ETS PatreMe HLL ora No SAE Buoy Te aioli = 
egas jane eTRaT ENpRGae THE Ret (4 UP TO oak, BO OS gt ARTING AT 
coud SEEACH PLDCK 1 LOADED. HATH POTD. Gre WRITTEN OTD Ota AE Aine es 
5e4s SECTOR FILE). THE MEMORY BLOCK IS ZEROED AND READ 
S846 *#COMPARED. THIS IS FOR EACH OF THE DATA PATTERNS CHOSEN 
5847 *#POSSIBLY INCLUDING USER-DEFINED 15, IF SPECIFIED. 
eas 021 il eee 
5850 p5i730 ieee 000004 001324 * MOV #4, STESTN ;;SET TEST NUMBER IN APT MAIL BOX 
5851 021740 004737 032060 JSR PC, SETTUP >SET UP FOR LOOP ON ; 

delves Giaisr Bss68 fe Reger® Hie tolgent ar © 7" TS Tes 

58s4 sRETURN HERE FROM CHKITR IF TEST’ 
5855 021754 004737 030726 JSR PC, INITSS s INITIALIZE DRIVER PARAMS AND SUB-SYS 
pepe 021760 004737 027250 pan ode Loner” REP nT >PREPARE FOR POSSIBLE KBD INPUT 
5858 021764 004737 O30422 : JSR Pt, FNDXDP sCOMPUTE STARTING ADR OF XXDP 
5959 021770 bier 37 064574 cossye2 MOV #RUBUF,.XDPSAV  ;SET XXDP SAVE AREA ADR 
5860 el ooss44 CLR XDPSAVS2 
£861 O2e002 004737 030474 JSR PC, SAVXDP :GO SAVE XXDP LOADER 
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S862 022006 112737 999001 903124 Nove al, XOVLAD sSET INDICATORS 
2ee3 peepa3 jieese nee ISR PC; LODP14 s GENERATE PISEUDO-RAND PAT 14 
S865 Oeedes 013737 005670 o0ss36 MOV PT, PATRN COPY OF 
Geeta 1 BNE a ee — PT NON- 
eee 5, 012737 007400 o0SS36 en aalrreeee Peat TESTING ‘SET DEFLT CATAHE = PAT 8,$.10,11 
oerg 022044 004737 037022 2g: JSR Pc, SETUPM s INIT PARAS 
5870 Deeds 004737 033450 45: 138 PC’ RRURDE :COMPUTE MAX WORD COUNT FOR THIS MA 
1 1 T Ri :SEE IF ALL MEMORY TESTED YET 
5872 O220S6 100501 BMI 50S :BR ONE 
£873 Seene bOs0b8 000012 CLR P.WC(RS) INIT WORD COUNT TO 65,536(DEC) 
5874 1 TST Ri ?SEE IF WRO CNT SHOULD BE 65,536 
5875 Gec066 001003 BNE BS -BR IF YES 
Be BSSn90 10065 oo0012 MOV RO,P.WCCRS) ;SET WORD COUNT 
5878 O22076 013765 005600 o00010 éS: MOV MA,P.BALO(RS)  :SET BA BITS O-15 
5879 O22i04 013701 o0560e MOV MAt2 RI :GET MA BITS 16-21 
5980 Geelio ove701 177774 : BIC #177774, Ri *MASK FOR LO 2 BITS 
5881 114 150165 000007 BISB R1,P.BAHI(RS) SET BA BITS 16,17 
S882 Oecled 005737 oS6216 TST $kT1i *SEE IF MEM MGT PRESENT 
5883 Oe2l24 100010 BPL 14$ BR IF NOT 
5so4 ;SET UP MEM MGT 
| §88S 022126 013737 005600 O05604 MOV MA, PMA ;SET BUFFER ADDRESS 
PBBb 022134 013737 005602 o05606 MOV Mate, PMAt2 
| 022142 004737 030300 JSR PC, PREPAR ;PREPARE MEM MGT REG’S AND UNIBUS MAP 
| 5888 022146 012704 000001 14$: MOV #1;5R4 *SET PATTERN BIT POINT 
| §889 Geese 030437 O0SS36 16$: BIT R4’ PATRN “SEE IF THIS PATTERN IS CHOSEN 
| 5890 022156 001003 BNE 20$ : S 
| §891 O22160 006304 18S: RY :SHIFT TO POINT TO NEXT PA 
| §892 Qeei6e 001434 BEG 24s : LEFT TO CHECK 
| §893 028164 000772 BR 16$ *GO CHECK FOR ANOTHER PAT 
| §894 O22166 O10401 20S: MOV RY,R1 :GET A COPY OF BIT POINTER 
| 589s “PERFORM THE TESTS 
| §896 022170 012737 022170 001110 225: MoV #. , SLPERR ;SET NEW LOOP ON ERROR ADRS 
| 5397 022176 004737 JSR PC, SETTUP :SET UP FOR LOOP ON ERROR 
| §898 Qeeet2 004737 O40e26 ISR PC, SVPRMS :SAVE THE PARAMS FOR THIS XFER 
| §899 O22206 004 034426 JSR LODBUF *LOAD THIS MEM BLK WITH SELECTED DATA 
' §900 Oeeel2 112765 O001e3 O00001 MOVB § &WROATA,P.CMND(RS) :SET WRITE DATA COMMAND 
| §901 Oe2220 004737 O40340 JSR PC, TRNSFR WRITE THE DATA 
| 2a05 p5555¢ 004737 036100 GR Ba LOMEM2 OE CREN BO ITH ALL ZEROS 
| £904 p5s558 112765 000121 o00001 MOVB § #RODATA,P.CMND(RS) ;SET Heep COMMAND 
| §905 Deze4d 004737 b40340 JSR PC, TRNSFR “READ THE DATA FROM DISK 
 §806 004737 S4 ISR PC, CMPBUF ?PERFORM SOFTWARE COMPARE OF DATA 
| §907 Oee2so 104410 SCOPER *CHECK FOR INTERNAL LOOP ON ERROR 
| §908 Oeeese BR 18 sCHECK FOR NEXT PATTERN 
| §909 -GET NEW MA FOR NEXT TRANSFER 
5910 022254 004737 037230 24$: JSR PC, INCRMA sCOMPUTE NEXT MA 
| §911 Oee260 000673 BR 4g’ *GO SEE IF MORE MEMORY TO TEST 
| §912 Qeee62 004737 030502 cos: §§ JSR PC, GETXDP "RESTORE XXDP LOADE 
| 6§913 022266 105737 003134 TSTB  -UBMPRS *SEE IF UNIBUS MAP PRESENT 
5914 Oe2e72 001402 BEQ Bug *BR IF NOT PRESENT 
_ §915 Oee274 005037 172516 CLR aeSR3 “DISABLE UNIBUS MAP 
E31 022300 Sus: 








f Payee ec ea 
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it €6}~«“§W PRI CTI 


teTEST 5 UNIBUS C 
; ¥THE PURPOSE OF THIS TEST bes ATTEN EXE EXERCISE THE NPR CONTROL LOGIC 

#WITHIN THE CONTROLLER IN SUCH A MANNER THAT A CONTENTION FOR ‘. 
; FUNIBUS CYCLES ARISES BETWEEN THE PROCESSOR AND THE RKOG. 
SAFIRST A WRITE DATA IS SS FC,FT,SECTOR 0, WITH 

j THE a $s INGRERENT INHIBIT B IT (Bal ctf N THE CONTROLLER. 


ING ON THE 
T mrs aad PATTERN 


oy 
D 
= 
: 
ou 


S 
5 
: 
So 
2 
Be 


PER OR PAS 
CONTROLLER IS FORCED TO LOSE FROM ONE 
EXE THE 


AUL C 
CHECKED FOR VERIFICATION, AND THE ABOVE 
TA COMMAND. NO ERRORS ARE EXPECTED. 


C 
- ABOVE OPERATIONS ARE REPEATED 15 MORE TIMES USING THE NEXT WORD 
: PROPER PAT OR 15) EACH TIME, TO WRITE AND READ 
**THE ENTIRE TRACK. IF A DATA LATE ERROR OCCURS ON A GIVEN TRANSFER, 
*#THAT DATA IS NOT WRITE-CHECKED OR COMPARED. 


s LELLALELELALELA LLL LALA LEAL LALLA LALEEARLLALEL LALLA ELE RLLLAL ELE 





téTs;: 
001324 MOV #5, STESTN -SET TEST NUMBER IN APT MAIL BOX 
JSR PC; SETTUP OPT T UP FOR LOOP ON ERROR 
CHKITR SEE IF ITER. NO. = 0 FOR THIS TEST 
JMP 6 0 NEXT TEST 
RETURN HERE FROM CHKITR IF TEST’SHOULD BE RUN 
JSR PC, INITSS s INITIALIZE DRIVER PARAMS AND SUB-SYS 
JSR *PREPARE FOR POSSIBLE KBD INPUT 
s INITIALIZE PARAMETERS 
pooo0e MOV FC,P.CYLN(RS)  ;SET CYL = FC 
0000s MOVE © FT,P.TRCK(RS) ©; SET TRACK = FT 
CLRB ~SECTIRS) iSET SECTOR = 0 
000012 MOV -13000,P.WC(RS)’: INIT WORD COUNT FOR FULL TRACK 
TSTB T DETERMINE THE FORMA 
BEQ 4s *BR IF 22 SECTORS 
000012 MOV #-12000,P.WC(RS)’:SET WORD COUNT FOR FULL TRACK 
000014 4S: BIS #OTBAII{P.PRST(RS) :SET BUS SS INCREMENT INHIBIT 
WRITE bara WITH ALLOWABLE UNIBUS CONTENTION WRITE CHECK IT 
PAT1S, RO SET DATA ON tTERN DRESS 
rey PT ;SEE IF USER USER-DEFINED PATTERN 1S SELECTED 
BMI 14S BR IF YES 
MOV #PAT13,RO SET DATA PATTERN 13 ADDRESS 
14$: MOV #16.,R1 *SET COUNTE 
MOV #20. 5R3 :SET NON-EXISTENT MEMORY TIMER 








a 6S a SE eS 


See ck Bae e BRE 


o 
Lode ie ie Dele lg le lol 
WONMUICWte-O 


RS itiste 


or 
3 


022432 01006 
10803? 
ate 
ste 
105737 
Oe 901011 
032737 


Beesoe Iie766 
004737 


000010 
3e 


022432 
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003133 
000001 


005476 


000001 


000010 
000001 




















16S: MOV RO,P.BALO(RS)  ;SET BA BITS 


CLRB DL TEL :CL EAR DATA LATE FLAG 

MOVB 1, NORTRY -SET “NO-RETRY” FL 

MOVB Eh P, CHND CRS) 5 T WRITE DATA COMMAND 

JSR DATA DURING NEM REF. 

ISTB bt ee IF DATA LATE ERROR OCCURRED 

BIT SBCERR, RECODE iSEE IF BAD SECTOR ERROR 

BNE 24 R IF YES 

HOVE r) Rt cM sSET ITE CHECK COMMAND 
-READ DATA MITH AL E UNIBUS’ CONTENT ON, END COMPARE LAST WORD 
{e$: MOV ~BALO(RS) s SET ="RWBUF ADDRESS 

CLR -C “BUFFER WORD 

MOVB RULE P. CHND(RS) 5 rat READ COMMAND 

ISR PC, REFNEM DATA DURING NEM REF. 

STB OLTFLG ; SEE IF DATA Care PRROE OCCURRED 


20$ 
{R0)+, , RNBUF : {COMPARE LAST DATA WORD 

PC, REPSUP : GATHER STATUS FOR PRINTOUT 
MOV -2tRO).SREGS  ;GO0D bara WORD 

MOV RWBUF , $REGE 3BAD DATA WORD 


ERROR 110 “READ ERROR WHILE BAI SET” 
-SET UP FOR NEXT PASS THROUGH LOOP 


20$: DEC Ri ;SEE IF ALL DONE YET 
BEQ 24g ‘BR I 
IMP 16$ JUMP TO CONTINUE TESTING 


eee Oe ES | eee 
feTHIS Fest PERFORMS t MUL TYCORIVE Post TO POSITIONING OPERATIONS, WHILE A 
S#LARGE DATA TRANSFER IS IN PROGRESS ON THE DRIVE UNDER TEST, FOR 

3% DETECTING PROBLEMS OF CONCURRENT DRIVE OPERATION. 
ie TEST IS RUN ONLY IF THERE IS MORE THAN 1 DRIVE ON THE SUBSYSTEM. 


S4THE TEST PROCEEDS AS FOLLOWS : IT IS FIRST DETERMINED WHICH DRIVE(S) 
AND ARE OPERATIONAL. THE VES 
age Tien ce ER Ft (SCALED, SF NECESGERY) 3 THE DRIVE 
jxTEST. A SENET On SECUN AA Of EACH OF E 
EERO A IG-ey RULLEMSEC TO Cb T9 CORPLETE. AS. 


H 
wis CT 3 ae WITH BUS SS INCREMEN 
BIT eth te 


=i 
22 
3¢ 
a 
m 





Sev] 
aI 


ne 
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6030 senrreNTnM BITS AND COMPARING DRIVE CYLINDER ADDRESSES TO EXPECTED 
poh te ee ee ee eee a re 
eOeS Bssebe Biers? 001324 tT: #6, $7 T TEST NUMBER IN APT MAIL BOX 
pase Bese te 737 heels of’ pe; SevTue ai uP Pont LOGE ON ERROR 
6036 Oee620 904737 032126 = 0 FOR THIS TEST 
6037 Oeeb24 000137 o2344e2 SEge ii fo “ERD-oF Pris ROUTINE 
b038 : RETURN HERE FROM CHKITR IF TEST’SHOULD BE R 
39 022630 004737 030726 ISR FC, INI ITSS s INITIALIZE DRIVER PARAMS AND SUB-SYS 
022634 004737 027250 PREPKB “PREPARE FOR POSSIBLE KBD INPUT 
£041 : CHECK ORV sT FOR CATER AVAILABLE DRIVES, AND RECALIBRATE THEM 
6042 O22640 112765 000117 o00001 OVB SEEK,P.CMND(RS) ;SET SEEK COMMAND 
6043 O22646 O0S001 CLR RI ;tNIT MULTIPLE-DRIVES FLAG 
6044 O22650 005000 CLR RO ‘INIT DRIVE NO. TO O 
6804S Oee6S2 005065 on00002 CLR P.CYLN(RS) SET CYL = 0 
6045 022656 O22700 O00010 4g: CMP #10,R0 :SEE IF ALL DRIVES CHECKED YET 
6047 4] BEQ 8 :B ALL DONE 
6048 1 00s610 TSTB ORVLST(RO) *SEE IF THIS DRIVE IS MARKED IN LIST 
6049 022670 001410 BEQ 6S ;BR_IF_NO 
b0S0 022672 120037 oosso2 CHP RO, , DRIVE SEE IF MARKED DRIVE IS DRIVE UNDER TEST 
6052 BSSen8 ogee eooo00 MOVB RO, P. DRVN(RS) ee, DR RIVE NO. PARAMETER 
es tery gee fe EN eet Scat ROR IAN 1 onze 
6055 551 poesay 6S: NC Rd i FhicR bRivE Noe 
6056 022714 000760 BR 4§ *KEEP CHECKING DRIVES 
6057 022716 095701 8S: TST Rl *SEE IF MORE THAN 1 DRIVE PRESENT 
O58 901002 BNE "BR IF YES, TO RUN TEST 
6059 O2e7e2 000137 oes44e IMP MULTI1 NO, SKIP TEST 
6060 -SEEK TO CYLINDER FC ON DRIVE UNDER TEST. SET PARAMS FOR DATA XFER 
6061 022726 004737 030726 3g: JSR PC, INITSS sINIT 5.5. 
6062 Oee73e 013765 OOS6SO oOD000e MOV FC.P.CYLN(RS)  :SET CYL = FC 
6063 O2e740 o0S5065 00004 CLR P. SECT(RS) “SET TRACK AND SECTOR = 0 
6064 22744 012765 136400 oo0012 MOV e-1715e. ,P. WC(RS) ;SET WC FOR 67 (DEC) SECTORS 
6065 O22752 105737 003115 TSTB «FORMAT CHECK T F 
6066 022756 001403 BEQ 12 BR IF aoe =SECT OF F ORMAT 
60E7 Oee760 012765 141400 o00012 MOV #-15616.,P.WC(RS) ;SET WC FOR G1(DEC) SECTORS 
608 O22766 Ole765 OO06666 OO0DID 125: MOV #PAT13,P.BALO(RS) ; S 
£069 022774 052765 100000 000014 BIS epTeait, P.PRST(RS)':SET BUS ADDRESS INCREMENT INHIBIT 
O23002 112765 000117 o00001 MOVB HSEEK P CMND(RS) ;SET SEEK COMMAND 
6071 023010 004737 040716 JSR AL  dFEK 19 vee FC ON DRIVE UNDER TEST 
Bove :D0 PSEUDO-RANDOM n SEEKS ON ALL ottER DR 
023014 105037 003110 CLRB : INH bet *C, #2 ESCAPE 
6074 023020 012701 000007 MOV SET LOOP COUNTER 
6075 Oe30e% 012700 003204 MOV hai RO ADRS OF RAND CYL LIST 
E07 023030 004737 034044 15$: JSR 5 *GENERATE A PSEUDO-RANDOM CYL NO. 
023034 013720 Oo0SSO6 MOV CYLNDR,(RO)+ SET CYL NO. IN TABLE 
£078 023040 001 BNE 16$ :BR IF Nor 
. 023042 177776 INC -2(RO) *MAKE IT NON-ZERO 
6080 023046 00530 16$: DEC RI *DECREMENT LOOP COUNTER 
6081 023050 00136 BNE 15S $BR_IF_NOT DONE LOADING LIST YET 
6082 023052 012701 003204 MOV #CYLLST,R1 GET ADRS OF RAND CYL T 
6083 023056 010537 023126 MOV RS, 19 ‘SET PARAM BLK ADRS FOR BRIVER 
6084 023062 O0S000 CLR RO INIT DRIVE NO. 
6085 023064 022700 000010 18$: CMP #10,RO SEE IF ALL NRives CHECKED YET 





. 
es. 
Ee 
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y BEQ 225 :BR_IF_YES 
che bese ORE sea 005810 TSTB = ORVLST(RO) ‘SEE IF THIS DRIVE PRESENT 
001414 BEQ 208 BR IF N 

623100 ? oossoe2 CMPB «RO, DRIVE sSEE I IF THIS IS DRIVE UNDER TEST 
pCa 1 1411 BEQ 20$ *BR IF 
6091 023108 110065 oo0000 MOVB §RO,P.DRVN(RS) SET DRIVE NO. PARAMETER 
6092 Oeslle 912165 o00002 MOV (RL)4+.P.CYLN(RS)’ ;SET CYLINDER 
6093 023116 004737 041032 JSR PC, STRCMD :STORE PREV AND CURRENT CMNDS 
6094 Oe3l2e 004737 O51042 J5R PC;C. INIT :GO START SEEK ON THIS DRIVE 
6095 - Oe3le6 000000 19$:  .WORD *P.B. ADRS GOES HERE 
60% 023130 005200 205: INC RO jINCR DRIVE NO. 
6097 Oesise 000754 BR 185 TO SEEK ON NEXT DRIVE 
6098 -WRITE DATA ON oRivE UNDER SHES ae BAI 
6099 023134 112765 000123 000001 22%: DATA,P.CMND(RS) ;SET iRTTE DATA COMMAND 
6100 Oe3l42 113765 o0SS02 o00000 OVE ORI VE P DRYNCRS) iF DRIVE NO. 
6101 O23150 013765 o05650 o00002 MOV FC,P.¢ det YL NO. 
6102 O23156 O01 023354 003034 MOV #MUL *SET SPECIAL DRIVER RETURN ADDRESS 
6103 O23164 need 040716 JSR FC aio WRITE 1 CYL + 1 SECTOR AT CYL FC . 
6104 023170 032737 005476 BIT »RECODE © SEE_IF BSE ERROR “H 
6105 023176 O01121 BNE MULTI BR IF YES 
6105 023200 112765 000131 o00001 MOVB § a#WRTCHK.P.CMND(RS) ;SET WRITE CHECK COMMAND 
6107 Oe3e06 004737 040716 ISR PC. DRVCAL “WRITE CHECK THE DATA WRITTEN 
6108 ; CHECK ATTENTIONS Ase CHECK CYLINDER ADDRESSES FROM ALL OTHER DRIVES 
6109 023212 112737 000001 003110 MOVB jALLOW tC, *Z ESCAPE 
6110 112765 000141 OO0001 MOVB sabst TAT,P.CMND(RS) :SET READ DRIVE STATUS COMMAND 
611i O2322¢6 012701 003204 MOV #CYLLST;Ri Anise OF RAND CYL LIST 
bli2 O232e3e ooso00 CLR RO INIT DRIVE N 
6113 O23234 022700 co0010 26S: CMP #10,RO *SEE IF ALL DRIVES CHECKED YET 
6114 001500 BEQ MULTII *BR IF YES 
6115 Ge3se42 105760 O0S610 TSTB = DRVLST(RO) SEE IF THIS DRIVE MARKED IN LIST 
6116 023246 O01440 BEQ : NOT 
6117 O232eS0 120037 opsso2 CMPB =s«-RO, DRIVE “SEE IF THIS IS DRIVE UNDER TEST 
6118 023254 001435 BEQ : S 
6119 023258 136037 003072 003202 BITB T.DRV(RO) , SAVRD' -SEE IF GOT ATT’N FROM THIS DRIVE 
6120 Oe3264 001003 BNE 28S :BR IF YES 
6121 023266 004737 042130 ISR PC, REPSUP ; PREPARE STATUS FOR PRINTOUT 
Glee Oese72 104113 ERROR 11 **NO ATTENTION ON SEEK" 
6123 O23274 110065 28$:  MOVB RO,P.DRVN(RS) SET THIS DRIVE NO. 
6le4 023300 004737 040716 JSR PC’ DRVCAL *READ STATUS OF THIS DRIVE 
6125 023304 016503 MOV P. <BiGCKS), R3 GET STATUS BYTE B10 
6126 023310 006003 ROR GET CYL ADRS RIGHT-JUSTIFIED 
6127 O23312 006003 ROR 3 
b1e8 Oe3314 006003 ROR R3 
Pisa p5aah8 ate 177000 BIC #177000,R3 sCLEAR OFF UNUSED BITS 
B13) 023324 Oee103 CHP (R1)+,R3 sCUMPARE TO EXPECTED CYLINDER 

b ] 

HE fee fie wre ome BY ig ate a 
6135 Oe3342 004737 O42130 JSR PC’ REPSUP ay STATUS FOR PRINTOUT 
He Gee ie ae ae) een ae nae 
6138 tied BR 26S aR IF NOT DONE WITH ALL DRIVES YET 
6140 THIS IS THE NORMAL RETURN FROM THE DRIVER WHICH IS USED TO CHECK 
6141 ‘THE RESULTS OF MULTI-DRIVE OPERATIONS. 
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6142 023354 032737 000200 9002770 MULHDL: au WROY,T.CS1 BR IF ROY SET RDY IS SET 
READ CONTROLLER REGISTERS 


6 023364 004737 oso44e ISR PC,I.CSTS 
614S 023370 613765 002770 o00016 MOV T.CSi,P.CSI(RS) :GET CS} grTs 
614 De3376 004737 042130 JSR PC -REPSUP ; PREPARE TATUS FOR PRINTOUT 
6147 Oe3402 104112 ERROR tia sCINTRET WHEN CNTRLR NOT ROY” 
6148 O23404 913737 003004 003202 6S: MOV T.ASOF , SAVWRD ;SBVE A N_SUNMIARY 
6149 O2e3412 000337 003202 SWAB aN girs IN BITS 0 
6150 O23416 ile76S 000177 oo0001 MOVB - ¥SUBCLR,P. cnnocrés et SUBSYSTEM CLEAR COMMAND 
6151 O23424 Ole737 O4114e 003034 MOV BERRFRE.A.NORM ;RESTORE NORMAL DRIVER RETURN ADDRESS 
6152 Oe3432 004737 O40716 ISR PC, DRVCAL sCLEA SUB-SY 
E153 023438 900137 O41142 IMP ERRFRE ?TAKE NORMAL RETURN 
6155 o23442 MULTII: 
6156 
6157 
6158 
b153 .SBTTL END OF PASS ROUTINE 
piPs [INCRENENT THE PRES MOPGER (SPOS) EE 
61 INC THE PASS NUMBER (SPAS) 
6163 TPES TEND PASS #XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 
6164 #IF THERES A MONITOR GO TO IT 
bibs _ peIF THERE ISN’T JUMP TO NEWPAS 
6167 o23442 SEOP: 
6168 Oe3s442 oo0004 Sco 
| 6169 37 001330 INC SDEVCT s INCREMENT DEVICE COUNT FOR APT 
| 6170 923450 000137 017436 IMP NEWDRV *GO SEE IF MORE DRIVES TO TEST ON THIS PASS 
6171 O2e3454 DUNPAS: ;THIS IS TRULY THE END OF A PASS 
| $172 23454 042777 000100 1SS462 BIC #BIT6, aSTKS DISABLE TTY KBD INTERRUPT 
6173 Oe3462 001102 CLR STSTNM 3; ZERO THE TEST NUMBER 
| 6174 023466 005037 001304 CLR STIMES *2ERO THE NUMBER OF ITERATIONS 
| 6175 O23472 005237 001326 INC SPASS i] INCREMENT THE PASS NUMBER 
6176 O23476 042737 100000 001326 BIC #100000,SPASS ;;DON’T ALLOW A NEG. NUMBER 
| 6177 023504 005327 DEC —«- (PC) + LOOP? 
| 6178 023506 000001 SEOPCT: .WORD 1 
| 6179 023510 o03022 BGT SDOAGN s YES 
' 6180 023512 012737 MOV (PC)+,a(PC)+  § ;:RESTORE COUNTER 
| 6181 023519 000001 SENDCT: .WORD 1 
| 6182 023516 023506 SEOPCT 
| 6183 023520 104400 o23565 TYPE SENDMG ;;TYPE “END PASS # 
| 6184 023524 013746 001326 MOV $PASS, -(SP) SAVE SPASS FOR TYPEOUT 
| 6185 023530 104404 TYPDS 3560 TYPE--DECIMAL ASCII WITH SIGN 
| b18e O4400 o23562 TYPE SENU :: TYPE A NULL CHARACTER 
| 6] 13790 oo0042 $GET42: MOV of 42 s3GET. NONITO ADDRESS 
| 6188 O2e3542 o0140S BEQ SDOAGN : BRAN HIE NO MONTTOR 
| 6185 Oe 44 9000 RESET i WORLD 
| 6190 46 1 SENDAD: JSR PC, (RO) $560 TO HON TOR 
' 6191 023550 oo0240 NOP ;;SAVE ROOM 
| 6192 023552 o00240 NOP *FOR 
| 6193 023554 o00240 NOP ACT 
| 6194 023556 SDOAGN: 
' 6195 023556 000137 JMP a(PC)+ ; ;RETURN 
| 6196 023560 017424 SRTNAD: .WORD NEWPAS 
| 6197 02356e 377 377 000 $ENULL: .BYTE -1,-1,0 ;;NULL CHARACTER STRING 
} 








| DRENB ° o_o ‘RKOB SYSTEM VERIFICATION : 
DZRENB.C END OF PASS ROUTIN 


6198 Oe3S65 O15 O42412 D4eil& SENDNG: 
6199 Oe3S7e O50040 O5150: 20123 
00 Oe3600 000043 
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6203 023602 012737 OO00340 177776 ASTART: MoV 
q .SBTTL INYTIALISE Ree EBHHON TAGS 
:;CLEAR THE COMMON TAGS CSCHTAG) AREA 


beds 3610 012706 001100 MOV BSCITAG, RB :;FIRST LOCATION TO BE CLEARED 
3614 OO0S026 CLR ( ::CLEAR MEMORY LOCATION 
6208 023616 022706 001140 CMP aSiR, Rt : DONE? 
6209 Oesb2e 901374 BNE 6 LOOP BACK IF NO 
6210 Oe36e4 012706 001100 MOV #STACK, SP :SETUP THE STACK POINTER 
6211 ss INITIALIZE A FEW VECTORS 
6212 023630 012737 oSs426 o00020 MOV HSSCOPE, DHIOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
6213 023636 Ole737 000340 Oo00022 MOV #340, NLOTVECH+ ;:LEVEL 7 
£214 O23644 012737 OS4722 900030 MOV #SERROR ae ENTVEC’ § “EMT VECTOR FOR ERROR ROUTINE 
6215 Oe3652 012737 000340 o00032 MOV #340, JREMTVEC+2 ; 
be16 623660 Ole737 OS6562 000034 MOV #STRAP SNTRAPVEC ! “TRAP VECTOR FOR TRAP CALLS 
6217 Oeab66 0120737 000340 000036 MOV #340, DRTRAPVEC+2; LEVEL 7 
6218 023674 Ol2737 OSS272 000024 MOV SSPWRON, JePURVEC: , sPOUER FAILURE VECTOR 
6219 023702 012737 O00340 O00026 MOV #340 SO RVECeS ; :LEVE 
023710 013737 023514 023506 MOV SENDCT, SEOPCT SCE TEp 5 END-OF-PROGRAN COUNTER 
6221 023716 005037 901304 CLR STIMES’ i IND UAL IE NUMBER OF ITERATIONS 
S222 023722 005037 001 36 CLR SESCAPE :CLEAR THE ESCAPE ON ERROR ADDRESS 
6223 022726 112737 O00U0l o01115 MOVB #1, SERMAX i ONE ERROR PER T 
6224 023734 012737 023734 001106 MOV t. » SLEBDR ;;INITIALIZE THE LOOP ADDRESS FOR SCOPE 
6225 Oe3742 O1e737 Oe3742 001110 MOV SETUP THE ERROR LOOP ADDRESS 
6226 :;SIZE FOR A HARDUARE STITCH pegtSTER, IF NOT FOUND OR IT IS 
6227 s3EQUAL TQ A =I" SETUP FOR A SOFTWARE SWITCH REGISTER. 
6228 023750 013746 OD0004 MOV DRERRVEC, -(SP) 3;SAVE ERROR VECTOR 
6229 023754 012737 024010 op0004 MOV #64$, JHERR ::SET UP ERROR VECTOR 
6230 023762 012737 177570 001140 MOV #DSWR,SWR SETUP FOR A HARDWA RE SUICH REGISTER 
6231 923770 Ole737 177570 001142 MOV #DDISP, DISPLAY :?:AND A HARDWARE DISPLA REGISTER 
6232 023776 022777 177777 155134 CMP #-1, JSUR >: TRY TO REFERENCE HARDW HARE SWR 
6233 Oc4004 001012 BNE 665 ;;BRANCH IF NO TIMEOUT TRAP OCCURRED 
6234 ?AND THE HARDWARE SUR IS NOT = -1 
6235 024006 o00403 BR 65S: ; BRANCH IF NO TIMEOUT 
| $236 O24010 012716 o24ol16 - 64S: MOV #655, (SP) _ ::SET UP FOR TRAP RETURN 
6237 O24014 ood002 RTI 
6238 Oc4016 012737 O00176 001140 653: MOV gyi #POINT TO SOFTWARE SWR 
6239 024024 Ole737 000174 001142 MOV sDLSPReG,D DISPL 
beH0 024032 012637 oo0004 66S: MOV S DSERRVEC ” RESTORE ERROR VECTOR 
B24? 024036 005037 001326 CLR SPASS CLEAR PASS COU 
6243 Oo4o42 132737 OO0200 001341 BITB  #APTSIZE,SENVM TEST USER SIZE “UnoER. gPT 
6244 024050 001403 BEQ 675 *YES,USE NON-APT SWITC 
Be4S Oe40S2 012737 o01342 001140 MOV #SSWREG, SWR *:NO,USE APT SWITCH REGISTER 
| 6246 24060 673: 
6247 .SBTTL RKO6 HEAD a eae AID 
6248 O24060 oDp0005 RESET ;RESET UNIBUS 
6249 Oe4062 104400 007026 TYPE _,DZR6N TYPE PROGRAM I.D. FOR PART 2 
O24066 104400 007040 TYPE ;SUBVER 
| 6251 Oe4072 104400 007121 TYPE 
024076 012737 000176 OOL140 MOV RSWREG, SUR ADRS OF SOF THARE SWR 
| 6253 024104 005077 155030 CLR  aSWR MAKE SWR LO 
| 6254 024110 012737 027110 oj0060 MOV wkSDHOL DeTKVEC :LOAD VECTOR "Fon TTY KBD 
| 6255 024116 012737 000200 o000b2 MOV PRY aATKVECHE *SET KBD PRIORITY = 4 
| 6256 024124 013701 003030 MOV RK VEC, RI GET ADDRESS OF VECTOR STORAGE 
| 257 O24130 Ole7el o4sS42 MOV a INR (R1)+ SET IT TO INTERRUPT HNDLR 
| 6258 O84134 012711 000340 MOV #PR7, (RL) :SET INTERRUPT AANDLER PR? 





ee er re eee 
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$259 O24140 012737 00 47777 MoV BPRO, JaPS sALLOW ALL INTERRUPTS 
i4€ pera? 00 &S MOV #0,Ft -SET FIRST CYL = 0 
1s4 632737 5056 MoV al STCvL,LC :SET LAST CYL = 410(10) 
1 GIVEID: 
6264 l 913737 176543 053170 MOV 8176543, SHINUM ;INITIALIZE PSEUDO-RANDOM NUMBERS 
S265 1 i le 172 MOV 8122455; SLONUM 
S266 ie 1 0031 CL9B MDF L CLEAR PARAM INP FLAG 
B26) 00311 er TSTING :CLEAR “RUNNING TESTS” FLAG 
£268 7 504 éLR STALLS :DON’T STALL ON OPERATIONS 
£359 MOV BPRVCMD, RI :ZERO OUT PREV COMMAND 
ber MOV #6, RO 
1 42: CLR (RL )+ 
557 2o4 EC RC 
ENE 4ag 

| be74 l CLAS = ERRCNT :CLEAR ERROR COUNT FOR RESTARTS 

| 6275 Oe4es4 1044 1143] TPE IDENT ; TYPE PROGRAM IDENTIFICATION 

e579 Geusua Q0f0] BNE Ferceb ieee IF ves. 

B78 Deveue 1 011476 TYPE , FORHLP ‘ASK IF HELP DESIRED 

| 8569 ti2s0i ROYe” (SP)4. A + ET CHERACTER 

6251 peusep 122704 900015 cH 015,81 : SEE IF ch TYPED 

S55 buses $9900 065213 fee PLPFIL iRELP REQUESTED INFO 

PSee 

-DETERMINE DESIRED OPERATIONAL MODE 

4 924270 104400 011533 ASKMOD: We Ope RED ORS sASK FOR DESIRED OPERATIONAL MODE 

6288 Oe4274 O04 027250 ISR PC, PREPKB : FOR KBD INPUT 

| 6289 924300 ooss24 18: TST INTCHR CHECK FOR TTY INPUT 

bes) Des 001775 BEQ “BR IF NO INPUT YET 

«6291 013701 oosse4 MOV NTCHR, RI :GET INPUT CHAR INTO Rl 

Be ie pret Se ne eet oe 

| be peysen Gee701 00115 CMP chelt i1s i MANUAL MODE ? 

«BBB REUSE! Botts one TMP TOCMANUAL MODE ROUTINE 

' §297 Oe4332 022701 000101 2s: CMP 8’A,R1 IS IT AUTO MODE ? 

be pe1s% bo10¢e BNE 3$ *BR IF NOT AUTO 
137, IMP AUTO JUMP TO AUTO MODE ROUTINE 
6300 O24344 004737: 027270 3 JSR PC, ECOBAD ‘ECHO BAD INPUT 
me 024350 000747" BR ASKM ‘BR TO ASK FOR MODE AGAIN 
Bape MANUAL SELECT MODE ROUTINE 
pep 024352 MANUAL : 
6307 352 104400 011574 TYPE , TYPMAN sTYPE “MANUAL SELECT MODE” 
p08 $6 011627 ASKDRV: T ENTORV ASK FOR DRIVE NUMBER 
JSR PC. PREPKB : PREPARE KBD INPUT 
£3 1$: TST INTCHR :SEE IF I 
BEQ *BR IF NONE TO CHECK AGAIN 


;GET_ CHARACTER INTO R1 
;TEST FOR (#R) 
;8R IF (tR) TO RESTART 


3 


WOOO 9 
£Wwrue-td 
ey a 
es3nk 
mss 
iS 

8 

ut 


3 
a 
33 


ee nee eo ee eee 








7 
- 
o, 


> 
a 
Qa 
~oO 


hor 


O3-NOV-7& 21:42 PAGE i46 
ASC 
BAD 
; (ip 
IT DESIRED DRIVE 
BACK TO ASK AGAIN 
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sMANUAL ALIGNMENT MODE 
MANAL : 


;REPORT MANUAL ALIGNMENT MODE 


TYPE MANALN 


*REQUEST AND CHECK DESIRED HEAD 
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BNE 3 :BR IF NOT (40) 
oooo01 MOVB wsRECAL.P.CMND(RSS <SeT RECALIBRATE COMMAND 
JSR ORVCAL ;RECALIBRATE DRI . 
IMP ASKDRV ; JUMP TO ask FOR DRIVE AGAIN 
3$: CMP Ri, #022 sSEE IF (¢2) 
BNE 4§ -BR IF NOT (#2) 
oocco1 MOVE § @RECAL,P.CMND(RSS ;SET RECALIBRATE COMMAND 
JSR PC, ORVEAL jRECAL IBRATE DRIVE 
yep Sua : JUMP TO ASK NEW MANUAL SUB-MODE 
4$; IMP Ri,#’0 :COMPARE TRACK TO ASCII 0 
BLT c$ ?BR IF <O (BAD NPY j 
CMP Rl,s’2 :COMPARE TRACK OASCII 2 
SGT $ ?BR IF >2 (BAD INPUT) 
BIC #’0,R1 ‘STRIP ASCII BITS 
MOV R1, TRACK :STORE TRACK (HEAD) NUMBER 
BR 6$ :G0 CT HEAD 
S$ JSR PC, ECOBAD ‘ECHO BAD INPUT 
IMP ASKHED “ASK AGAIN FOR HEAD 
UNLOAD HEADS, AND WHEN READY, START SFINOLE AND SEEK TO ALN CYL 
6 TSTB = VERIFY ;SEE IF VERIFY MODE 
8$ ‘BR IF VERIFY 
ISR PC WAITHR [UNLOAD HEADS, WAIT FOR <R> TYPED, LOAD 
ooooes 8s MOVB = TRACK,P. TRCK(RS)':SET DESIRED HEAD 
JSR —- PC_ALNISEK ;SEEK TO ALIGNMENT CYLINDER 
TYPE :TYPe HEADS POSITI 
MOV TRACK, RI *GET BINARY TRACK NO 
Biss swan’. ‘CONVERT TO ASCII 
nove Rl. HE ‘GET HEAD NO. INTO MSG BUFF. 
T HE sTYPE HEAD SELECTED MSG 
IMP ASKHED :GO BACK TO ASK FOR NEW HEAD SELECT 
:MANUAL SELECT VERIFY MODE 
011430 MANVR: MOVE #1. VERIFY ;SET VERIFY MODE FLAG 
TYPE MANVRE *REPORT MANUAL VERIFY MODE 
IMP ASKHED :GO ASK FOR DESIRED HEAD 
; MANUAL RANDOM SEEK EXERCISE ROUTINE 
JSR PC, WAITHR ;UNLOAD HEADS, WAIT FOR <R> TYPED, LOAD 
MOV De IVE Rl :GET VE NUMBER 
BIS 8’0,R1 tC ONVER 0 ASCII 
MOVE  R1.ORIEXR *PUT DRIVE NUMBER INTO OUTPUT BUFFER 
TYPE MANEXR :TYPE RANDOM SEEKS MSG 
MOV BRNDLNG, RO :IN TIAL IZe RANDOM SEEK COUNTER 
000001 MOVB §8SEEK,P.CMND(RS)’ :SET COMMAND 
1$: JSR PC, PREPKB ; FOR 


INPUT 
2g: JSR PC’ RNDADR “SELECT RANDOM CYLINDER ADDRESS 

ooo002 HOV CYLNOR P -CYLNCRS) “SET RANDOM CYLINDER ADDRESS 
sCHECK FOR TTY INPUT iBURING EXERCISES 

TST INTC :SEE IF ANY INPUT 

BNE 3$ "BR IF A CHAR WAS TYPED 


on ee 5 er ee nee 
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IPR IF NOT BONE SEEKING YET 
{DISABLE KBD. INTERRUPT 
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seRCALIBRATE DRIVE 
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FLAG 
IFY 


NEW MANUAL SUB-MODE 


INPUT 
TILL IN MANUAL EXERCISES 
TINUE EXERCISES 
SELECT MODE™ 
IGN 
KE 
INPUT 


abene 


;8R I 
;SE 


j 


;BR_IF 


ISeE IF ( 
ALP. CMND(RS} 


VCAL 
#RECAL,.P.CMND(RS 


PC, DRVCAL 


MOVB skEC 
JSR 


IMP 
CMP 
BNE 
MOVB 
JSR 
IMP 
JSR 
TYPE 
;AUTO SELECT MODE ROUTINE 


SS: 
AUTO: 
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S18 VERIFY ;SEE IF AUTO VERIFY MODE 
ive iBuTveF Re oar ir0 VERIFY MODE 
3$: TYPE AUTALN ; TYPE ALIGNMENT MESSAGE 
4g: JSR PC. PREPKB ‘PREPARE FOR POSSIBLE KBD INPUT 
CL T.MR2 5 CLERR Ne ST 
CLR SELECT * INITIALIZE AUTO-SELECTED DRIVE INDICATOR 
MOV #377, ONLINE : INIT. ONL INE DRIVE INDICATOR 
MOV #377, NEWON : INIT. ONLINE ORIVE INDICATOR 
MOV #377, SCRACH ‘INITIALIZE LAST DRIVE INDICATOR 
DRVLUP: TST NTCAR -SEE IF ANY KBD INPUT 
BEQ § “BR IF NO INPUT 
MOVB § SCRACH,P.ORVN(RS) :ORIVE NO. FOR POSSIBLE RECALIBRATE 
CMPB —sINTCHR, #032 «SEE IF (42) TYP 
BNE *BR IF NOT lez) 
CMP , SCRACH j SEE IF ANY DRIVE SELECTED YET 
BEQ 1 IF NONE 
MOVB § #RECAL,P.CMND(RSS :SET RECALIBRATE COMMAND 
JSR PC, DRVCAL ;RECALIBRATE DRIVE 
1$: IMP RESTART AUTO MODE 
2s: CMPB —sIINT CHR, #022 ;SEE IF (tR) TYPED 
BNE ‘BR IF NOT (tR) 
CMP #377, SCRACH *SEE IF ANY DRIVE SELECTED YET 
BEQ °BR IF NONE 
MOVB  BRECAL.P.CMND(RSS :SET RECALIBRATE COMMAND 
JSR PC, ORVCAL *RECALI DRIVE 
38: IMP GIVEID ;RESTART ALIGNMENT AID 
4S: JSR PC, ECOBAD ECHO INPUT 
JSR PC’ PREPKB *PREPARE FOR POSSIBLE KBD INPUT 
6S: CLR DRIVE THE pri VE NUNBER 
MOV #1,R0 ‘fhe OAL DRIVE BIT MASK 
QS: MOV #NEDHDL , A. ABNL NED ABNORMAL RETURN ADDRESS 
BIS RO. NEWON “SET ON-LINE BIT FOR THIS DRIVE 
;SELECT CURRENT DRIVE, CHECK FOR’ NON-EXISTENT IVE (NED) INDICATION 
RNS ADH Prowotes\ ret te belve comma 
ISR PC, DRVCAL Seri EET I DRIVE 
CMP #7, DRIVE ; SEE IF WE JUST CHECKED DRIVE 7 
BEQ 10$ "BR IF IT WAS DRIVE 7 
INC DRIVE “ADD 1 TO DRIVE 
CLe CLEAR CARRY BEFORE ROTATE 
ROL RO *SHIFT BIT POINTER 
BR 8S BR TO SELECT NEXT DRIVE 
10$: MOV NEWON, RI 
;e#eeeE TO BE REMOVED 2eexHEH 
CMP NE 
BEQ uP . 
;NUMBER OF 200 MILLI-SEC STALLS 
the: Be 
Et 
BNE 
DEC 
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6539 025732 001371 BNE LOOP! 
B30 5 pARReESEETG ONLINE Rl GET ¢ ONLINE BITS 
Pays peered fete ppeeso 005530 MOV NEWON, ONL INE ‘BDATE ! ONC ING ORIVE BITS 
6543 025746 005701 TST RI ‘SEE IF ANY DRIVE JUST WENT ON-LINE 
6544 025750 001650 BE RVL -BR IF NO DRIVE JUST WENT CNLINE 
6545 sSERVICE THE DRIVE WHICH WAS JUST SELECTED 
6546 025752 012737 042410 003036 MOV #ERRHDL, A. sRESTORE USUAL ERROR HANDLER ADDRESS 
BSH 025760 oossoe CLR IVE INITIALIZE DRIVE NO. 
025764 sate MOV R1,R3 :COPY NEW SELECTED DRIVE BITS 
6549 025766 012700 O00001 MOV #1;RO ‘INITIALIZE BIT POINTE 
£550 Oe577e 030003 12: BIT RO’R3 -SEE IF THIS BIT IS SET 
6551 025774 61008 BNE 14$ *BR IF THIS BIT SET 
6552 025776 oossoe2 INC DRIVE : INCREMENT DRIVE NO. 
6553 Geb00e 41 CLC ‘CLEAR CARRY BEFORE ROTATE 
6554 0061 ROL ‘SHIFT BIT POINTER 
6555 026006 000771 BR 125 TRY AGAIN 
6556 026010 O40003 14$: BIC RO.R3 ‘SCLEAR OUT THIS BIT 
6557 Oe60le OO1415 BEQ 16$ BR IF ONLY ONE DRIVE SELECTED 
558 enaes “Uneak ete sERROR - ptone THAN ONE DRIVE SELECTED SIMUL TANEOUSLY 
6550 026020 bue7be 000100 copo00 BIC RIE,RKCSI(R2) $INHIBIT RKO& INTERRUPT 
6561 Oeb026 HALT *HALT FOR INTERVENTION 
6562 > PRESS *CONT’ TO PROCEED 
| §563 926030 112765 000177 000001 MOVB § #SUBCLR.P.CMND(R5) ;SET SUBSYSTEM CLEAR COMMAND 
6564 026036 004737 040716 JSR PC. DRYCAL CLEAR THE SUBSYSTEM 
6565 Oc6042 000137 025414 IMP AL RESTART AUTO ALIGNMENT 
cep 35] 020137 005526 igre eee SEE IF STILL ALIGNING SAME DRIVE 
£568 Beene 001506 BE *BR IF SAME DRIVE 
| £298 026054 000377 005534 a Me ERECTED — F_TH FIRST DRIVE SELECTED 
| 6571 Gee0b2 O0142! fro sBa BR TF FIRS? DRIVE 
| §572 O26084 113765 O0SS34 o00000 MOVB § SCRACH,P.DRVN(RSS ;GET LAST DRIVE 
| $573 Oe6072 112765 000141 000001 MOVB § SRDSTAT.P.CMND(RS)’-SET READ STATUS COMMAND 
| 6574 026100 737 16 JSR PC, DRVCAL jRERD STATUS OF IOUS DRIVE 
| 6575 O26104 ooo044 BIT #S-HDHM,P.ADL(RS) ;SEE IF HEADS UNC SAbED 
| Boe Bee eee 11 000001 ote SSRTSPL.P.CHND(RES SET STORT SPINDLE COMMAND : 
| §578 pee iee ated ug ISR PC AL tid SPINDLE ON PREVIOUS DRIVE 
| Bee ee ii? Gossge O0ss34 238: Rove DRIVE, SCRACH HUpoaTe. SELECTED ORivE MEMBER’ > TRT SPL 
| 658 140 O1 { Qossbe MOV DRIVE Ri GET DRIVE NUMBER 
pege 026144 Seat BIS #’0,R1 + REAVERT TO ASCII 
«BS BIS ioe baie We MARR Fepe MG te Eg,ouT BUFR 
i a 
| B58 Deb1ba bow” 3? 031460 JSR PC, CHKORV ; CHECK DRIVE FOR ROY, WRITE PROT. 
| §587 peeled il 000377 011427 MOVB. #377, UNLOD ert DRIVE ON OES SICATOR 
| 6588 Oe6174 ot o0SS22 MOV 2 TRACK RS) Oe ET eke nn 
Feo OS310 108737 D1140 ous: STB VERIFY ace IF AUTO VERIFY 
6591 Oe6214 001016 BNE 323 “SKIP UNLOAD IF VERIFY 
6592 Oecbel6 112765 000107 O00001 MOVB UNLOAD. P.CMND(RS) ;SET UNLOAD COMMAND 
6593 Oeb224 004737 040716 ISR PC, DRVCAL “UNLOAD THE DRIVE 
6594 Oe6230 112765 000141 000001 MOVE § #ROSTAT,P.CMND(RS) ;SET READ STATUS COMMAND 





4 St a ] 





/RKO& SUBSYSTEM VERIFICATION : 
RKO& HEAD ALIGNME' 


See RReBees 


o 


ar: 


ee ee ee ee ek eo 


stat ad ghigh gt at at ata 
OTN UI £ Wwf O 
et ed ae 
#o 


RESP TEES ESLAAAASAAAA LARA AS EAE! 
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2s$: JSR PC, ORVCAL ;READ STATUS OF DRIVE 
OM WS:HDHM,P.AQL(RS) ;SEE IF HEADS ARE UNLODED YET 


3e$: MOVB #SUBCLRP P.CHNOCRS) Lies’ nee. TEM CLEAR COMMAND 


JSR PC, ORVCAL 
IMP DRYLUP LER TO SCAN DRIVES AGAIN 
-PROCEED WITH SAME BRIVE 


2S: MOVB DRIVE, P. aes “SET DRIVE NO 

COMB NLOD’ Ce UNLOAD INDICATOR 

BNE ous :BR IF DRIVE SHOULD BE UNLOADED 

TSTB —s-: VERIFY *SEE IF AUTO VERIFY 

BNE > SK SPL IF VERIFY 

MOVB § #SRTSPL.P.CMND(RS) ;SET START SPINDLE COMMAND 

JSR PC, DRVCAL > START T SPINOLE ON THIS DRIVE 
333: CMP #2; TRACK i SEE IF LAST TRACK WAS 2 

BNE 28$ RIF IT WAS NOT 2 

CLR TRACK ier TRACK = 0 

BR 30$ 60 SERK TO ALIGNMENT CYLINDER 
28S: INC TRACK :INCREMENT TRACK NUMBER 
305:  MOVB § TRACK,P.TRCK(RS)’:SET TRACK NO. 

JSR PC, ALNSEK ;SEEK IN INCREMENTS TO ALIGN. CYL 

TYPE :TYPE HEADS POSITIONED MSG 

MOV TRACK. RI *GET CURRENT TRACK NO 

BISB 0. Ri ; CONVERT TO ASCII 

MOVB = R1. HEADNO :GET INTO MSG BUFFER 

TYPE HEDSEL *TYPE “HEAD xX 

JMP ORVLUP GO BACK TO SCAN DRIVES AGAIN 
huTo RANDOM SEEK EXERCISE ROUTINE 

JSR PC, INITSS s INITIALIZE SUBSYSTEM 

JSR PC’ PREPKB *PREPARE FOR KBD INPUT 

TYPE AUTEXR *ASK FOR SHORT OR LONG SEEK EXERCISES 
1S: TST tNTCHR *SEE IF ANY INPUT 

BEQ 1$ “BR IF NO INPUT 

CMP INTCHR, #022 *SEE IF (tR) TYPED 

*BR IF NOT (¢R) 

IMP GIVEID : JUMP TO RESTART ALIGNMENT AID 
2s: CMP INTCHR, #032 “SEE IF (42) TYPED 

BNE 3$ *BR IF NOT (#2) 

IMP AUTO ; JUMP TO RESTART AUTO 
3S: CMP INTCHR, #°S *SEE IF SHORT EXERCISES DESIRED 

BNE 4 BR IF NOT 

ier 1 MINUTE eK K COUNT 


MOV #RNDSHT , SCRACH 
BR 6$ WITH SHORT EXERCISES 

4S: ge INTCHR, #’L Bee ET he LONG EXERCISES DESIRED 
MOV pou, sore | 88, 5 MINUTE EK COUNT 


= 


BR *PROCEED WITH LONG EXERCISES 
SS: JSR PC, ECOBAD sECHO BAD INPUT 

BR BUTEX ;BR TO AGAIN 
6$: CLR DRIVE DRIVE = 0 
SELECT CURRENT DRIVE AND CHECK FOR NON-EXISTENT DRIVE INDICATION 
85: MOV #NEDHDL,A.ABNL ;SET NED ABNORMAL RETURN ADDRESS 


MOVE DRIVE,P.DRVN(RS)' ;SET ORIVE NUMBER 














;SET SELECT DRIVE COMMAND 
g Hat dte INDICATOR 


003036 RORMAL DRIVER RETURN ADDRESS 
6655 026576 Oee737 000377 005532 CMP tk :SEE IF NED INDICATION ON THIS DRIVE 


BNE 18$ :BR IF » 10 SKIP THIS DRIVE 
6657 ;CHECK DRIVE FOR_RDY etre PROTECT 


6651 026550 112765 000101 c90001 MoV SSELDRV P.CHNDCRS) 
6& le737 000377 005532 MOV 7, NEWON sINTIOLY? 
33 4 737 04071 JSR Pe “oy ROL A AON spELeCT TH 
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SSRENG CNB“ RKOS READ ALIGNMENT ATO 
6658 026606 004737 031460 JSR PC, CHKDRV = CHECK ore DRIVE 
6659 Oebble O26410 UTEX “ERROR RETURN ADDRESS FOR CHKDRV 
bbb0 awe ;PROCEED ITH Seen ON THIS DRIVE 
a] peeps. 052701 nuns ars Ri S CENVERT To Wesae 
6663 O26624 110137 013304 MOVB RI ORT TODR ;GET DRIVE NUMBER INTO OUTPUT BUFFER 
6664 026630 104400 013263 TYPE AUTOEX i TYPE ceRERC SING DRIVE x" 
6665 Oeb634 112765 000117 000001 MOVE §$ &SEEK, P.CMND(RS)’ 
6665 Seeb42 013700 005534 MOV SCRACH, RO PEK COUNT 
6667 026646 004737 027250 10$: JSR PC, PREPKB ;PREPARE FOR POSSIBLE KBD INPUT 
6668 Oe66S2 004737 O34044 ISR PC’ RNDADR *SELECT RANDOM CYLINDER ADDRESS 
6669 026656 013765 905506 o0000e MOV CYLNOR P.CYLN(RS) :SET RANDOM CYLINDER ADDRESS 
6570 O26664 004737 040716 ISR C, DRVCAL D0 A RANDOM SEEK 
ber 026670 005/32 ooss24 TST FCTOUR :SEE IF ANY KBD INPUT 
6572 026674 O014 BEQ 16$ :BR IF NO INPU 
6673 026676 023727 oO0SSe4 o000z2 CMP INTCHR, #022 :SEE IF (tR) TYPED 
6674 026704 001007 BNE 128 °BR IF NOT (4R) 
6575 026706 112765 000113 000001 MOVB #RECAL,P.CMND(RS! ;SET RECALIBRATE COMMAND 
6576 026714 004737 O40716 JSR PC, DRVCAL sRECALIBRATE DRIVE 
6677 O26720 000137 O24lbe2 IMP GIVEID : JUMP TO RESTART ALIGNMENT AID 
6578 O267e% 023727 OOSSe4 O00032 128: CMP INTCHR, #032 SEE IF (#2) TYPED 
6579 026732 001007 BNE 14S . *BR IF NOT (42) 
6680 026734 11 000113 oo0001 MOVB § &RECAL,P.CMND(RSS :SET RECALIBRATE COMMAND 
6681 Oe6742 040716 JSR PC: DRVCAL sRECALIBRATE DRIVE 
bb8e 026746 000137 025300 IMP AUTO : JUMP TO RESTART AUTO MODE 
026752 004737 027270 14$: JSR PC, EC ,BAD *ECHO BAD INPUT 
6684 026756 004737 027250 JSR PC, PREPKB *ENABLE KBD INPUT AGAIN 
6685 O26762 005300 16$: DEC RO ; DECRENENT SEEK COUNT 
B68 026764 001 BNE 10 BR_IF NO ca Tenet ort THIS DRIVE 
026766 11 000113 000001 MOVB BRECAL P. CMNOCRSS =SET Recall 
6688 026774 004737 040716 ae JSR SRECAL 
BG AR Gee BE oosme Mie ETS Bees 
eee 027014 04, 000100 152122 Bre oarTe aSTKS Bist ko tn TERRUPT 
6693 e70ee 104400 001310 TYPE bay NG BELL AT tO OF AUTO-EXERCISES 
beat 000137 025300 JMP AUT Ret aR AUTO MODE 
6696 
6597 sTHIS IS THE ABNORMAL RETURN FROM THE DRIV 
6 WHEC H_ IS USED WHEN NED INDICATION IS AeEereD (AND VALID). 
66 (NED = NON-EXIST ENT DRIVE) 


| 6700 027032 032765 010000 000020 NEDHDL: B #NED,P.CS2(RS) ;SEE IF NED ON DRIVE SELECT 
| 6701 pe 001 BNE 1$ ;BR IF NED SET 

6702 Oe704e 000137 042410 JMP arn, :GO rE OTHER ERROR 
| 

! 


6703 027046 tty 1S: MOV aie (SP) ;SAVE RO,R 

6704 027050 010146 MOV R1,-(SP) 

670S Oe70Se 012700 000001 MOV #1,R0 ;SET BIT POINTER 
6706 027056 005001 CLR Rl ;CLEAR COUNTER 





ferent nel pueRyart 
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708 027064 001403 3 
o27070 sae BR 2g 
74 04 
027102 012600 
RETN 
NOLER 
6720 
STAC 
152030 0 ast RE 
al SK OUT UNUSED BITS 
| 
| 
| 


027060 

4 

7990 
0270 

027100 

027104 


G 
Tees oossde 


ae tf 005532 


000137 O44624 


M VERIFIC 
MENT AI 


A 
D 


TION : PART 2 


33: 


MACY11 27(732) 


R1, DRIVE 
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iSEE IF Ri = CURRENT DRIVE NUMER 
: IN NT TER 

ET BIT POLNTER 

; TRY AGAIN 

‘CLEAR ONLINE BIT FOR THIS DRIVE 
tRESTORE RO, AL 

sTAKE NORMAL RETURN 


$ , REARAAAAAERALALE EAE LEAL ALE A AELELL LE LALLAELELELALERERELAS LE REEE 


*SBTTL KBDHDL - TTY KEYBOARD INTERRUPT HANDL' 
fp RERRRERREAERE RE RE LES ELLE EE LL EEAE LE LEE RERAE LEEK EREE ERA LLELERLEEE 


;SAVE R1 ON K 
AD A CHAR FROM a BUFFER 


3MA 
;SEE_IF LOWER CASE TYPED 
;BR IF NOT 


;BR IF_NOT 
;MAKE IT UPPER CASE 
sSAVE_INPUT CHARACTER 
;SEE IF (tC) TYPED 

;BR IF NOT (#C) 

sECHO (tC) 

;CLEAR KBD INTERRUPT ENABLE SIT 
sRESTORE R1 


;RETURN 
;SEE IF (tZ) TYPED 
;BR IF NOT (#2) 


sECHO (¢Z) 


fg RERRRERELAA RA RELE RELA RE ERE RE AERA R AAR LE REALE LAER AAR AL REEL ELA REELS 
. SBTT: - ARE FOR KEYBOARD T 


THe TT 


KEYBOARD BUFFER AND THE 
Y_INTERRUPT INPUT WORD 


s*INTCHR, IN PREPARATION FOR NEW TTY INPUT. IT ALSO 


&7e2 027110 010146 KBDHDL: MOV R1,-(SP) 
6723 O271le 017701 MOV STKB, RI 
6724 027116 O42701 177600 BIC #177600,R1 
6725 Oe7le2 120127 00172 CMPB #172 
6726 O27l26 O0300S BGT 

6727 027130 120127 000141 CMPB sé. #141 
6728 27134 o02402 BLT 

6729 136 042701 o00040 BIC #BITS,RI 
6730 027142 010137 005524 20$: MOV R1, INTCHR 
6731 027146 122701 000003 CMPB =s- #003, RI 
6732 Oe71S2 001007 BNE 2s 

6733 027154 104400 013354 TYPE CNTRLC 
6734 027160 042777 OOO100 151756 1S: BIC kBITS, ISTKS 
735 027166 012601 MOV (SP)+/R1 
6736 027170 O0000c RTI 

6737 Oe7172 122701 000032 2s: CMPB 0s«-#032,R1 
6738 027176 001003 BNE $ 

6739 027200 104400 013361 TYPE CNTRLZ 
6740 027204 000765 BR 

6741 122701 00022 33: CMPB ©: #022, RI 
6742 Oe7el2 001003 BNE 

6743 Oe7214 104400 013366 TYPE CNTRLR 
ore 027222 reek 000007 4§ om #007,R1 
S745 Oe7e2b arta BNE 5$ 

6747 027230 104400 013400 TYPE CNTRLG 
6748 027234 000751 BR {$s 

6749 027236 104400 o05524 SS: TYPE  ,INTCHR 
6750 Oe7e4e 104400 001315 TYPE SCRLF 
6751 027246 y BR is 

6752 

6753 

6754 

6755 

6756 L PREPKB 

6757 ¥THIS SUBROUTINE CLEAR 
p75 *#DONE BIT, AND CLEARS 
6760 ENABLES KBD INTERRUPT. 
6761 *% CALL: 

6762 : JSR PC, PREPKB 


a 4 4 i] 
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DZR& PREPKB - PREPARE FOR KEYBOARD INPUT 


NB.CMB 
eres 
6765 O27e50 005077 
6766 027254 005037 
676° Oe7eb0 O0Se777 
6768 Oe7eb& 000207 
6769 
6770 
6771 
6772 
6773 
£774 
6775 
6776 
6777 
6778 
6779 
6780 
6781 027270 104400 
6782 Oe7e74 104400 
6783 027300 000207 
6784 
6785 
5786 
6787 
6788 
6789 
6790 
6791 
6792 
6793 
6794 027302 104406 
6795 027304 012737 
6796 Oe731le 004737 
6797 027316 005737 
6798 100406 
6799 027324 013737 
6800 905037 
6801 027336 000427 
6803 027340 013700 
6804 027344 005001 
6805 027346 012702 
6806 02735e O00e41 
6807 027354 006100 
6808 027356 006101 
6809 027360 005302 
pei 027362 001373 
6812 027364 063700 
6813 027370 005501 
6814 027372 010037 
6815 027376 010137 
6816 Oe740e O4e701 
6817 027406 001403 
6818 027410 112737 


15167e 
005524 


OCO100 151656 


905524 
001314 


00 OoS6216 
32 


pee aoe 005574 


oS6462 


005574 
005576 
000003 


000001 003134 


5p RHR RHEE ERE A EKER R EEE REAR E ERE EERE ER ERE EEE EERE EEE EE EE 
PREPKB: CLR a$TKB ; CLEAR 1 ar AND DONE BIT 
LR INTCHR sCLEAR TTY INPUT 
BIS #B1T6, a$TKS j ENABLE Kg0 INTERRUP 
RTS PC : RETURN 


+STTL ECOBAD = ECHO GAD TTY INPUT. 
:XTHIS SUBROUTINE ECHOS A CHARACTER WHICH HAD BEEN 
*¥TYPED IN AND WAS DETERMINED TO BE INVALID OR SOME 
 #REASON FOLLOWED BY A QUESTION MARK (7). THEN, A <CR> 
sep <LE> ARE D 


PC, ECOBAD 
1 HEHEHE HEHEHE HEHEHE HEHEHE HEHE HEHEHE 


ECOBAD: TYPE  ,INTCHR ECHO Bap CHARACTER 
TYPE SQUES *TYPE <?> AND <CR>, <LF> 
RTS Pc RETURN. 

iUETMEM ~ SIZE MEMORY, SET LIMITS, 


SI SET LIM 
THis. SUBROUTINE ees MEMORY BY CALLING SUBROUTINE $SIZE, AND 
#IT USES THE VALUES RETURNED hee SET THE a ON PARAMETER MA. 
jel ALSO TYPES “LAST PHYS MEM ADR = XXXXXXXX" (LEAD ZEROS EUPRE D), 
;*AND SETS THE FLAG UBMPRS = 1 Tr e-BIT ADDRESSES ARE USED (11/70). 
WP tiiiniteiin ere tittisiitrerieer trier t terri e gs 


At2MEM: SAVREG ;SAVE RO-RS 
MOV #200, SKT11 *SET MEM MGT KEY FOR SSIZE 
ISR PC SIZE *SIZE MEMOR 
TST Skt SEE IF MEM MGT PRESENT 
BMI ag ?BR IF MEM MGT PRESENT 
MOV SLSTAD MAHILM SET MEM LIMIT LO BITS 
CLR LM+2 ‘CLEAR MEM LIMIT HI BITS 
BR Tee GO TYPE LAST ADDRESS 
-SHIFT SAF LEFT 6, AND PUT IN RI-RO 
85: MOV $LSTBK,RO LO BITS 
c RI *HI BITS 
MOV #6,R2 *SET LOOP COUNT = 6 
12%:  cLc ROTATE LOOP 
ROL RO 
ROL Ri 
DEC R2 
BNE 123 
ADD VIRTUAL ADDRESS TO SHIFTED SAF TO GET PHYSICAL ADDRESS 
DD SLSTAD, RO sft0 LO BITS 
MOV RO, MAHILM *SET LO BITS OF MEM LIMIT 
MOV RL MAHILM+2 ;SET HI BITS OF nen LINIT 
BIC #3°R1 EAR ADRS BITS 16 
BEQ 16$ BR IF NOT 22-BIT BAORESSES 
MOVB #1, UBMPRS “SET "UNIBUS MAP PRESENT” FLAG 





a em a ne EE ES NT A 
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DZRENB. CMB ECOBAD - ECHO BAD TTY INPUT 


022737 


Ooi010 | 


ies” “Ween Meee woamacer pe “LAST PHYS MEM ADR =" 


07125 
ppseoa ineHILN, 5 (SP) ‘PUT POINTER ON STAC 
3674 w$0820 ; CONVERT T BINARY TO OCTAL ASCII 
4210 788 EE a UPRS TYPE ” XXX" 
001315 TYPE  ,SCRLF : TYPE CRD. wits 
131 TYPE  ;SCRLF 
RESREG sRESTORE RO-RS 
RTS PC * RETURN 
pRETPRN - INPUT A SIXCDIGIT OCTTL NO ON TIY GD 
INPUT A SIX-DIGIT OCTAL NO. ON KBD 
Ea RO UBROUTINE WITH OLD PARAMETER VALUE ON STACK. SUBROUTINE 
pi E, AND INPUTS NEW VALUE, RETURNING NEW VALUE ON 
© LEEKEKELE LEELA LEEK KE KLAAL ARAL AA FRA LALAE RL RL AA RESELL ERLKA AHR SLEFES 
ooo00e2 BETPRM: MOV 2(SP),-(SP) ;GET V 
TYPOS sy 
YTE 6 i SIX 1GITS 
"BYTE O ; SUP pre LEADING ZEROS 
007333 TYPE NEWMSG :TYPE ” NEW =” 
032214 JSR PC, RDCHRS *READ NEW VALUE FROM KBD 
75 *(#C) RETURN ADDRESS 
75 (#2) RETURN ADDRESS 
75 :(+U)) OR ERROR RETURN ADDRESS 
TST RO *SEE IF ANY CHARS TYPED 
BNE Ug iBR IF YES 
RTS PC ;RETURN = OL VALUE UNCHANGED 
oo0006 4S; CMP RO, #6 : SEE IF > ~ CHARS T 
BLE 8S “BR IF NOT BAD 
005264 6S: TYPE  ,BUFFO *ECHO BAD INPUT 
001314 TYPE SQUES 
000010 73: SUB bio, (SP) sEIX ERROR RETURN PC 
005264 8S: MOV #BUFFO,-(SP) PUT POI ATER TO CHARS ON STACK 
052736 JSR PC, OCTBIN :CONVERT DIGITS TO BINARY 
6$ jERROR RETURN ADDRESS 
MOV (SP)+.RO “GET NEW BINARY VALUE 
053070 TST SHIOCT *SEE IF HI BITS ARE O 
BNE 6S BR IF NOT 
oooo0e2 MOV RO, 2(SP) PUT NEW VALUE ON STACK 
RTS PC : RETURN 
aT GTSURG © OPEN SOFTIMIRE SUTTCH REGISTER FOR MODIFICATION 
TL GT N SOFT GISTER FOR MODIFICATION 
ia SUBROUTINE ALLOWS THE CONTEN a OF THE SOFTW TCH 
j AREGISTER TO BE MODIFIED BY ie INPUT. THE SUBROUTINE TYPES 
"SWR = X AND WAITS FOR A NEW OCTAL VALUE 
SOF UP TO SIX DIGITS TO hey 
ARR OR dR SR sts 
000176 oo14o &tsuRG: ¢ ¢ CHP BSHREG, SUR sSEE_ IF. SOF TWARE SWR SELECTED 
$ 





i ee ee EE A LS 





000176 
007324 
027452 
009176 


172340 
000010 
077406 


000200 
177600 


003134 


000060 
001000 


042130 
17757e 


177574 
177576 
027754 
000340 
172516 
000003 
063207 
044420 
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OZRENB. CNB GTSWRG - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION 


177740 


172516 
177572 


001174 
001176 
001200 
000004 
000006 
001202 


Ob4S46 
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MOV SWREG, -(SP) ;PUT OLD VALUE ON STACK 
TYPE SWRMSG TYPE "SWR = 
JSR C, GETPRM ‘TYPE OLD, GET NEW SWREG VALUE 
MOV (SP)+, SWREG “STORE NEW VALUE 
6S: RTS PC * RETURN 


© REKKA KA LHA REALL EHKLL HA SRERARE KELL AAAE LA RHRAAEEE RAE KEKE LFLFESLEKE 
: SINTTMM - INITIALIZE MEMORY MANAGEMENT REGISTERS 
UTINE INITIALIZES KIPAR’S AND KIPDR’S, FOR 
US 4K PAGES, STARTING AT PHYSICAL ADDRESS 9 
: LOADED WITH 177600 TO PRESERVE THE 170 Pace. 
;#22-BIT M MODE AND THE UNI MAP B ARE ENABLED, IF PRESENT 
BUT MEM MGT IS NOT TURED? ON IN THIS SUBROUTINE. HOWEVER, 
2¥NEM MGT TRAPS ARE ENABLED. 


tilt: SAVREG SS  egVE RO-RS, 


CLR INIT FOR PAR LOADING 

MOV #KIPARD, Re ;ADDR OF FIRST PAR 

MOV rm “LOAD 8 PAR’S AND 8 PDR’S 
4S: MOV #7740 -40(R2) ;PDR = 4K,UP,READ/WRITE 

MOV (Re}+ :LOAD A PAR ’ 

ADD a2 2b0,R UPDATE F 

DEC *DECREMENT LOO ER 

BNE i ‘LOOP UNTIL ALL 8 ARE LOADED 

MOV #177600, ~(R2) jSET UP KIPAR? FOR 1/0 PAGE 

TSTB _—- UBMPRS *SEE IF 22-BIT ADDRESSES 

BEQ 10$ ‘BR IF NOT 

MOV #60, 04SR3 : ENABLE 2-811 MODE,AND UNIBUS MAP 
10$: MOV #81T9, a#SRO “ENABLE KT11 TRAPS 

RESREG : RESTORE RO-RS 

s PC * RETURN 


Tete Ler eee CC CeP CeCe C CeCe SSeS CCCTCCeSeCeCeC Ce CeLeee Tele ce ress 
t SCERVICE ROUTINE FOR MEM MGT TRAPS 
© SELLA HHA ALE RRA A KLEE HARA KA LE LA LEEK KARA LA LEER EKHAAKKHHELEKKE 


K+ERHD: JSR C, REPSUP ;GATHER STATUS FOR PRINTOUT 
MOV J#SRO, SREGS GET SRO 
MOV #5R1, SRE GET SR1 
MOV a#SRe, SREGZ GET SR 
MOV #83, dKERRVEC — ;SET TIME-OUT VECTOR 
MOV PR? OHERRVECH2 
HOV DSRS, SRE :GET SR3 
QS: CMP (SP)+, (SP)+ ;CLEAN UP STACK 
MOVE #3,DF30+18. FIX PRINTOUT FOR NO SR 
CLRB  DH7O4+11. 
10$: ERROR lel sKTL1 FAILURE 
MP HLTPRG ABORT !!! 
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DZRENB. CNB GTSWRG - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION 


ba34 Sg RRKRK RRR R ASL AL ARAL RA EK AK ARERR ELAR RES LEE RE REE ER EREREELELEREEES 
*2=NBCSR = ENABLE MEMORY CSR’S FOR PARITY ERRORS 
6933 Lae Sas Me caGee Aa Eee es ec 
bga¢ o5008 ere ENECSR: NOV AVE OL 
46 oc0004 MOV BAERRVES, (SP) + eOy OLD VECTORS 
6936 746 OO00006 MOV OHERR VEC+2, -(SP) 
6937 Sats o13048 030034 00004 MOV aHE eRRvEC -SET TIME-OUT VECTOR 
6938 030016 012701 172100 MOV sREHESR SADRS OF MEMORY CSR’S 
6939 030022 005021 - ug: CLR (R1}+ TH R 
6940 030004 012761 O00001 177776 MOV #8170, am SET ENABLE IN THIS CSR 
6941 030032 O00401 BR 10$ 
E942 030034 O22626 8S: CMP (SP)+, (SP)+ sCLEAN UP THE STACK 
$943 030036 O20le7 172140 10$: SMP R1, #MEMCSR+40 ; SEE IF DONE CHECKING YET 
6944 030042 001367 BNE 4g’ 
6945 O30044 012637 op0006 MOV (SP)+, INERRVEC+2° sRESTORE OLD VECTORS 
6946 030050 012637 000004 MOV (SP), J#HERRVEC 
6947 030054 012601 MOV (SP)+/R1 RESTORE RI 
6948 030056 000207 RTS PC : RETURN 
6549 
Peet 
6952 ; SEERVICE ROUTINE FOR MEM PARITY ERRORG 
6953 ; SERVICE ROUTINE FOR MEM PARITY ERR 
6954 oa ia a ee ee ee ee 
6955 039060 010146 hbERHD: M (SP) ;SAVE R1 
6956 030062 013746 OD0004 NOY Bt RAvEC (5°), SAVE OLD VECTORS 
- §957 O30066 013746 o00006 MOV JBERRVECHE, - 
| §958 030072 004737 042130 ISR PC, REPSUP cat HER STATUS FOR PRINTOUT 
| 6959 016637 OO0006 001174 MOV Preps SREGS GET PC OF ERROR 
6960 036104 012737 030230 o00004 MOV #10S,QaERRVEC  :SET 1.0. VECTOR 
| -§961 O30112 012737 000340 000006 MOY #PR7, JHERRVEC+2 
6962 sHANDLE 11/70 MEMORY’ PARITY ERROR 
6963 030120 013737 177740 001176 MOV JBLOERAD,SREGS ;LOW ERROR ADRS REG 
6964 030126 013737 177742 001200 MOV J#HIERAD,SREG7 :HI ERROR ADRS REG 
6965 030134 013737 177744 OOl20e MOV JUMEMSYS. SREGIO :MEMORY SYSTEM REG 
6966 O30142 012737 063243 064570 MOV #DH707,DF31+16. ;FIX ERROR MSG FOR 11/70 
6967 030150 112737 000004 064572 MOVE #4, DF 31+18. 
| §968 030156 104122 ERROR 122 11/70 MEM PARITY ERROR 
| §969 030160 ? 001200 TST SREG7 SEE IF BAD MEMORY IS IN PROGRAM AREA 
| 6970 030164 001011 BNE 6S NOT 
6971 O30166 001176 072574 CMP SREG6, #RNBUF +6000 -SEE IF BAD MEM IS IN PROG. ARER 
6972 030174 103005 BHIS 6% BR IF si 
6973 030176 105737 003135 4S: TSTB  MEMABT *SEE IF ABORT DESIRED 
| 6974 030202 001002 BNE = BR IF NOT 
6975 030204 000137 o444eD IMP LTPRG ABORT #3! 
| 6976 030210 icb3? Oooon6 6S: MOV (Se, DHERRVEC+2 ;RESTORE T.0. VECTOR 
6977 030214 012637 OO0004 MOV (SP)+, JHERRVEC 
6378 030220 012601 MOV (SP)+'Ri sRESTORE Rl 
6 030222 004737 027776 JSR PC, ENBCSR GO CLEAR AND ENABLE CSR’S 
| §980 030226 o00002 RTI “RET 
| 698 jHONDLE ALL OTHER MEMORY PARITY ERRORS (NON-11/70) 
| 6982 030230 o22626 10S: — CMP (SP)+. (SP)+ CLEAN UP THE STACK 
| 6983 030232 012737 030262 oD0004 MOV #14S, OHERRVEC :SET T.0. VECTOR 
| §984 030240 012701 172100 MOV #MEMCSR. RI sGET PiRéT. CSR ADDRESS 
6985 030244 011137 001200. 123: MOV (RI), $REG? CHECK FOR A MEMORY CSR 
| 6986 O30és0 00005 BPL 163. BR IF NO ERROR SET HERE 
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DIRENS. CMS GTSWRS = OPEN SOFTWARE SWITCH BEsiSteR FOR MODIFICATION 
£397 030137 00117 MOV R1, SREGE GET CSR ADDRESS 
£359 22 ERPOR 22 "MEMORY PARITY ERROR {HON 24/70) 
§ 5a 4§ GO SEE IF SHOULD ABCR 
6339 148: CMP (SP)+, (SP}+ CLEAN 
es¢ BL ocoode 16: ADD #2,R1 INCR RI i POINT TO NEXT CSR 
5 ; 172140 CMP RivaMeMcsre4o ©: SEE IF wee CHECKING 
9 74 153 5L0 et :BR IF 
£S34 7 ocd BR 2} FE TRN 
£935 
: 
2555 : 4 SEEEPAR = PREPARE MEN Mal FOR RELOCATION een eneees® 
3¢ :#PREPAR - ARE MEM MGT FOR RELOC ATION 
533 i#THIS SUBROUTINE cast INITMM THEN SETS UP CONSTANT 
7001 stork PARE IN SAVPAR, AND TOROS THE UNIBUS MAP REGISTERS, 
oo SPESFELESSESPSSLE HERES HFS SHESPSFEESGRESHFEESESPES ERE DEAS HS SH 4H HS 
104406 BREPGR: SAVREG Bt RO-RS 
7005 004737 927614 JSR INITMM : INIT MEM BGT REGISTERS 
coe 1 MOV paaly LO BITS OF MA 
i BIC ere RO *MASK FOR BITS 13-15 
7908 1 370 MOV PMA+2, RI ‘HI BITS OF MA 
Ol MOV RO,R3 :SAVE THESE BITS 
7330 10104 MOV RI’ RY 
il 100 ROL RO ;GET MA BITS 13-21 INTO Rl BITS 7-15 
7012 101 ROL Ri 
ay ee Slay an 
Be Bees Beek eh 
oie Baas 106001 RORB sR 
7018 020344 010137 903200 MOV R1. SAYPAR sCONSTANT FOR LOADING PARS LATER 
751 o20 350 270} BIC 87777, RI :SEE IF 22-BIT SSES USED (PDP 11/70) 
5333 14 BEG ag 3BR IF NOT (NO UNIBUS MAPPING) 
7021 sPREPARE FOR 22-BIT ADDRESSING - LOAD UNIBUS MAP REGISTERS 
ee 920356 912700 792 MOV aNAPLOO, RO sSTARTING ADDR OF MAP REGISTERS 
12701 i Reoo MOV #31.,R1 SET REGISTER COUNTER 
7024 030366 O1 4§: MOV R3, (RO)+ *LOAD A MAP REGISTER 
ae 530370 4 MOV RY’ (RO)+ 
020000 ADD #20000, R3 ADD 4K WORDS 
7027 ADC RY 
7028 077108 S08 R1,4S “LOOP UNTIL 31(DEC) ARE LOADED 
7029 4 160000 000010 BIC #160000,P.BALO(RS) ;CLEAR BA SITS 13-17 
7030 020416 142765 090003 000007 BIC8 = #3, P. BAHI(RS) 
7031 O20416 104407 9S: RESREG ;RESTORE RO-RS 
736 020420 900207 RTS PC : RETURN 
apse 
air o SSSLSERSELEEAERAKSESASSEAASEAAASAASLSLASLA LALA SRARELALALERRSLERAE 
707 Se, FIND STARTING ADR OF XXDP LOADER , AND STORE IT 
70393 jjeseesebinuneesssuenseseceuseesonuucseecenttneeszenuenssseeees 
7540 ose? 906737 005576 boxoP MAHILM+2 sTEST HI BITS OF UPPER MEMORY LIMIT 
7041 0304 6$ *BR IF HI BITS ARE O 
7042 030430 012737 160000 OOSSHO 4S: MOV #160000,XXDPAD . ;START OF 28K IS END OF XxDP 





—_ seed 
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OZRENS. CNS GTSWRG - OPEN SOFTWORE SWITCH REGISTER FOR MObIF! CATION 
3 Sk 8$ 
oa Seats bogsas OOSS74 IS7776 6&5: cH MBHILM, 8157776 SEE IF MEN LIMIT > OR = 157776 
Bae Seeae8 1 005574 goss40 Hoy MRHIL, XXOPAD HI nen Lint IS END OF XxOP 
‘ ¢ ‘*) ; 

oe Eabues 1627 BaEDSS SeeecS 83: cB #6000, XxDPAD OO Cate ofFer OF xxDP 
7049 630472 300207 aTs PC : RETURN 
7050 
7051 
rs j EAVYDP - SAVE IME XXDP LOADER IN MI MEMORY a 
f 
7055 Co SUBROUTINE MOVES TH XP LOAER, He WHICH RESIDES AT THE 
a3 ICA RODRESS STORE STORED IN XXDPAD THE PHYSICAL AODRESS 
7082 HASTORED N XDP BND oPSnVee A toTaL 1S36(DEC) WORDS ARE MOVED. 
7059 iS GETXDP - RES aie THE XXDP LOADER TO ORIGINAL LOCATION 
7060 is TH] Moves THe RELOCATED LOADER FROM THE ADDRESS 
061 , BACK TO LOCATION XXDPAD (ITS ORIGINAL 
7063 a a ETE EGE EPR PR ce EN 
7064 O30474 104406 : SAVREG sSAVE RO-RS 
7065 030476 Oos004 :SET INDICATOR TO SAVE XxDP 
7066 000410 Fe 5R XDP1 
7067 104408 GETXDP: SAVREG SAVE RO 
7068 l 003124 CLRB. - XOVLAD CLEAR OVERLAID INDICATOR 
7063 030510 105737 O03125 TSTB ‘SEE IF XXDP WAS SA 
7070 0320514 001427 BEQ :BR IF NOT SAVED 
7071 98320516 012704 000001 V :SET INDICATOR TO GET XxDP 
7072 105737 00041 XDP1: STB aad :SEE IF LOADED SY 
7073 030526 001422 BEG XDP2 :BR IF NOT 
7074 03050 1e70¢ #1536. ,R2 :GET SET TO MOVE 1S536(DEC) WORDS 
7075 01 005540 MOV XXDPAD; R3 “GET ORIG ADR OF START 
07 030540 013700 o0ss4e XDPSAV, RO GET SAVE ADR LO BITS 

020544 o13701 ooss44 OV XDPSAVS2, RI sHI BITS 
7078 030550 056216 TST SKT11 *SEE IF MEM MGT PRESENT 
7079 030554 100411 BMI XDP3 ‘BR IF PRESEN! 
7080 030556 005704 6S: TST RY :SEE IF WANT TO 0 SAVE 0 08 GET xxDP 
7081 030560 601002 BNE 8s :BR IF WANT TO GET 
7082 020562 O01 MOV (R3)+, (RO)+ :SAVE A WORD 
7083 030564 9S0040i BR 10$ 
7084 030566 Oled23 MOV (RO)+, (R3)+ GET A WORD 
7085 530570 005 20e 10$ DEC R2 :SEE IF 1S36(DEC) WORDS YET 
7086 0013 BNE 6$ *BR IF NOT YET 
7087 030574 ToHaa? XDP2:  RESREG RESTORE RO-RS 
7088 030576 000207 RTS PC : RETURN 
a 030600 004 027614 seas . FER ¥: Mee eNTTMM INIT MEM MGT REGISTERS 
7091 020604 O80 it RO’ ‘GET ADR BITS 13-21 INTO R1 BITS 7-15 
703¢ 006101 ROL Ri 

020610 006100 ROL RO 
7094 03061¢ 101 ROL Ri 
7095 14 1 Ri 
70% 030616 006100 ROL RO 
7097 030620 106001 ORS ~=saR21. i 
7098 030622 610137 172354 MOV R1, SKIPARG ;SET UP PAR6 





a es + ee ee eee 
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7( 
= OPEN SOFTWARE SWITCH REGISTER FoR “NODIFIC 


tw 





DEREN-B = RKG11/ 


$ © SLKELESZEEHAELELELSLAEAS ESE LEKLKELAL SRA RELALLEREAESELELLLFALLEZELE 
-S8TTL INITSS = INITIALIZE SUSSYSTEM 
i STHIS SUBROUTINE INITIALIZES THE DRIVER AND ITS PARAMETERS 

: ;xAND goes A SussvSTEn CLEP. 


te JSR NITSS 
of =eneususounasnarsuqusnashooses suansnnquoenennnsususnnesnocesess 


RKOE S 
| DERENB. CMB GTSWRG 

7099 030626 013701 ooss4e MOV XDPSAV, RI GET LO AORS BITS 
100 030832 pero 160000 BIC #160008, At FIX UP Rl TO REFERENCE PARE 
7} hee pResed 163: el Rs SEE I F ANT To oii OR GET xxDP 
3103 44 oP SNE 188 :BR RTF at Pt T XXDP 

| 2 12 MOV (R3)¢,RS $A 
7105 37 177872 INC a8SRO : TURN ON HOE RORY MANAGEMENT 

ide ie MOV RS. (RI)+ 
site CY 177572 DEC g#ORO ;TURN OFF MEMORY MANAGEMENT 
7103 005237 177572 18$: INC aaSRO : TURN ON MEMORY MANAGEMENT 
7310 0306 12105 MOV (R1)4,R5 GET A WORD 
Sits Depeee Ottesy Ove i oe oe ae ee 
7113 Sea eat o20000 205 BIT #81T13,R1 ;SEE IF OVERFLOW TO PAGE 7 

| 11% 930704 Do! BEQ 22$ :BR IF NOT 

| 11S 030706 042701 o20000 BIC #81T13,R1 :SET PAGE = & AGAIN 

. way 930718 062737 000200 172254 ADD #200, d8KIPARE UPDATE PAR BY 4K 

i il 905302 228: DEC Re °SEE IF 1536 WORDS YET 

7118 030722 001347 BNE 16$ : BR IF NOT YET 

| 2119 30724 23 BR xDP2 :BR TO RETURN 

{ 

| 


ete tesecectee cece p sete sete p tee tes 
BR RR Be RR PORES 


030726 012737 042410 003036 INITSS: MOV #ERRHDL,A.ABNL ;SET UP ABNORMAL ERROR RETURN ADDRESS 
030734 012727 O41142 003034 MOV #ERRFRE.A. NORM ier UP NORMAL RETURN ADDRESS 
p20 013702 003026 MOV RKBAS Re T Aoprese OF OF RK511 REGISTERS 
012705 002620 MOV SPARMO, BET OF PARAMETER . BLOCK 

030752 105037 003132 CLRB = NORTRY CLEAR TRY" FLAG 
030756 004737 031020 JSR PC, CLRPRM “CLEAR DRIVER INPUT PARAMETERS 
b207be 12765 000177 o00001 MOVB sSUBCLR.P.CMND(RS) ;SET SUBSYSTEM CLEAR COMMAND 

7140 737 O40716 JSR PC, ORVCAL DO’ SUBSYSTEM CLEAR 

7141 030774 113768 ooss02 onc000 MOVB DRIVE,P.ORVN(RS T CURRENT DRIVE 

7142 031002 113737 005502 002704 MOVE DRIVE.PARM! -SET DRIVE NO. IN ALTERNATE P.B. 

7143 031010 113765 003115 000007 FORMAT, P "CSIH(RS) ;SET CURRENT DRIVE FO 

zi 031016 000207 RTS PC ; SUBROUTINE EXI 

ata 

7148 seth CLRPRH = CLEAR DRIVER INPUT PARAMETERS ee 

7149 L CL R PARAMETER 

7150 art SUBROUTINE FEROS THE FIRST 14 BYTES IN THE DRIVER 

715 iePanie ER BLOCK <ghHose ADORESS IS IN RS). 

718s itiiiiiitiiiititiiiitittittiiititiiitititititititittititti es 
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. CNB Cu CLEAR DRIVE ARAMETERS 
031020 CLRPRM: MOV RO,-(SP) s SAVE RO 
Petters MOV RS, -(SP) RS 
l MOV RS; RO CET PARAMETER BLOCK ADDRESS 
031926 ADD aP:CS1,RS ; COMPUTE LIMIT 
vette 1$: CLR (RO)+ ;CLEAR_A WORD IN PARAMETER BLOCK 
1 CMP RO,RS ;SEE IF DONE 
031036 8 $ ;BR IF NOT DONE YET 
031040 MOV (SP)+,85 ;RESTORE RS 
Sota MO (5P)+,RO s RESTORE RO 
1 Ri ;RE 





- SCAN Brive F ATUS 
SIMI SUBROUTINE SCANS SELECTED DRIVE TO INSURE 
;#THAT se set IS ON-LINE, READY, NOT a a 
I 


NOT WITH AN ALIGNMENT’ CARTRIDGE 
:#0F THESE TIONS ARE NO HET, BN APPROPRI 
sares GEN is. ED TE SS LISTED I ATELY 
ene TER THe Rat fo Sone THe ku ie sg i 
Jef gl PASSED TO enHe SUBROU 
#ALSO, IF RUNNING FROM aes NEN RKOE- 1s aie MEDIUM, 
*#DRIVE O WILL BE REJECT 
?# CALL - JSR 
ii ERROR RETURN ADDR ADDRESS> 
: 4 ERELLE ERLE ALLE EERE ELLER ERE EERE RELL EERE EERE SEE AL ES ERAS LER EELS 


030726 SCNORV: 1 PC a ae ; INITIALIZE pap AND CLEAR SUBSYSTEM 


004737 
113765 o0SS02e oco0000 DRIVE ,P DRYN(RS) 5G “GET DRIVE 
SEE IF DRIVE 0 IS xxbP LOAD 
BNE 35 1 IF NOT DRIVE 0 


8 BS 
SNSRE Ge 
8 


031 22737 000013 o00041 CMPB «#13, a84 :SEE IF RKO& IS XXDP MEDIUM 
31 BNE 3 BR IF NOT 

1 i 003106 TS MOFLAG *SEE IF 200 START 
031 001003 BNE 3$ : NOT 
631100 007667 TPE DROXDP j TYPE “DRIVE 0 IS LOAD MEDIUM 
031106 L1e7bs 144 000001 3S: MOVB § #RDSTAT,P.CMND(RS) :SET READ DRIVE STATUS COMMAND 
031114 O1 003036 MOV SNEDHOL: A. SET NED ABNORMAL RETURN ADDRESS 
031122 012737 005532 MOV #377, NEWON *INIT. ON-LINE INDICATOR 
031130 004737 O40716 , DRVC. *READ ALL DRIVE STATUS 

SEE IF THis DRIVE EXISTS AND IS’ ON-LINE 
031134 012737 O¥2410 003036 RESTORE ABNL RETURN 
031142 000377 005532 CHP #377 , NEON *SEE IF NED INDICATION ON Fas DRIVE 
031150 O04 BEQ y *BR IF NED NOT SET 
021152 1137 posse 007370 MOVB IVE,BADDRV+6 GET DRIVE NO. INTO BUF 
031160 152737 BISB 8’O,BADDRV+6 ;CONVERT TO ASCII 
031166 104400 007362 TYPE , BADORV TYPE “DRIVE x" 
631172 104400 007373 TYPE NXORIV “TYPE “NON-EXISTENT” 
“SERVICE ERRORS HERE 

031176 O42762 000100 25: BIC #IE. RKCS1(R2) ; DISABLE RKO& INTERRUPT 
031204 017616 000000 Nov a(SP), (SP) :SET UP ERROR RETURN ADDRESS 
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rs , 


;SEE IF DRIVE IS READY 





7211 
7ele O31 000200 oooo4o 4s: IT #S.DRY,P.AQO(RS) iIEST RIVE READY 
ose alee Bros Bre t«k Ror pRive te READY 
este paises 142535 Gosoeg o0es70 BIee BOL BADORVOR er patie Rect} 
ost Bates? ate Tree , BADDRV + bE “DRIVE x" 
7217 O3le42 104400 OO74le NTREDY ;TYPE “NOT Y" 
31 031246 000753 ore ‘TAKE ERROR EXIT 
721 -SEE IF DRIVE IS WRITE ENABLED 
7220 931250 032765 oo4000 oo0o40 6&5: BIT #5.WRL,P.AOO(RS) ier telly LOCK SET 
7221 031256 001413 BE as 3BR F WRITE LOCK NOT SET 
7222 O3le60 113737 ooSS02 007370 MOVB IVE, BADDRV+6 DRIVE 
7223 031266 186737 o00060 007370 BiSB 0. BADDRV+5 CONVERT TO ASCII 
55d pater oon 26 TYPE re GORY s VEE “PRT YE-t OCKED" 
7225 031304 000734 BR 2g “TAKE ERROR EXIT 
7227 -SEE IF DRIVE NOT LOADED WITH ALIGNMENT CARTRIDGE 
7228 031306 112765 000103 oo0o01 8s: MOVB  &PACK, P.CMND(RS) iST PACK ACKNO COMMAND 
7229 031314 O04 940716 ISR PC, ORYVCAL -SET VOLUME VALI 
7230 031320 112765 000121 000001 MOVB TA,P.CMND(RS) ;SET READ COMMAND 
7231 031326 012765 0006-3 MOV #LSTCYL,P.CYLN(RS) :SET CYLINDER = 632(8) 
7ese 031334 ie76e 000005 MO #LSTTRK.P.TRCK(RS) :SET TRACK =e 
5535 031342 O1 064574 000010 MOV # P.BALO(RS) :BUS ADDRESS 
7234 031350 012765 177774 O00Dl2 MOV “4 P.WC(RS) | ;READ 4 WORDS 
7235 031356 105065 00007 CLRB 3s P. CS 1H1( RS) ?SET 22-SECTOR FORMAT 
7236 031362 004737 040716 JSR "READ 4 WORDS OF BAD SECTOR FILE 
7237 031366 032737 100000 005476 BIT 8ANYDER,RECODE :SEE IF DATA ERROR 
7238 031374 001402 BEQ OS BR IF OK 
7239 931376 104400 0123310 TYPE TYPE READ ERROR MES 
7240 031402 022737 177777 Ob4602 10S CMP 8177777, RWBUF+6 SEE IF ALL 1°S IN I.D. WORD 3 
7241 031410 OD1013 BN 1 - BR IF NOT al 1°S 
ix moc ® a 
o5d5 314 11303 aCe te os V+ Convent To. ASCII 
patiss taupe perace TYPE + BRDORY sTYPE “DRIVE EO WITH ALIGN PACK™ 
Kk ¢ 
reap 031436 ioeee BR 23 Bea ERROR EX Ht 
7548 031 1 13 oooon ise” ROVE ARECALP p-CIND(RS), ,SET IBRATE COMMAND 
«x s < 
7249 O31 Aie7es tata JSR . PC,ORVCAL barca HIS DRIVE 
7250 021452 062716 00000¢ ADD: #2; (SP) 
7251 O31456 000207 RTS pC’ 
7252 
roe 
7255 sett CHMDRV © CHECK STATUS OF DRIVE RNa 
55e5 I We fe OFsI TO DETERMINE 
7258 : ine Tals SURO Ne te NE READY, i ecURNy IF NOT, THE 
Me RICE RANUAL INT i Pe RNe Toe SRRECT: Th 
7260 : S SUHILE ARTERY A AKES TO CORRECT THE 
7261 *#PROBLEM. THE OPERATOR THEN DEPRESSES "CONT’ TO PROCEED, 
7262 *#AND A RETURN IS TO THE ADDRESS LISTED IMMEDIATELY 
7263 #AFTER THE CALL. IF THERE ARE NO WITH THIS 
7264 IVE. A NORMAL RETURN IS MADE. 


S OF THE PARAMETER BLOCK, 
MUST CONTAIN THE RKO& REGISTER BASE ADDRESS. 
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8 86888 86 
2 BI3e09 


& 
Ss 
fu 
br 
ES 


wT 
S BS568 


| 
| 
| 
: 
| 
| 
| 
| 
| 
| 
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Sox RKEBRE e cRe ne STBTUS Oe Durie F 


s¢ 
3% 


CALL: 
3% i5k e Fe HKDRV 
WE tIitittititittititiiititiiiiitititiitttttiitiititttiittist ites 


ST Seana? TN HOVE ROSTAT,PramCRs) (SET READ RIVE STATUS Comma 


MOV 
MOV 8 ‘Ture NI NE INDICATOR 
JSR PC, DRVCAL READ ALL DRIVE STATUS 
;SEE IF THIS DRIVE EXISTS AND 1S’ ON-LINE 
MOV #ERRHDL,A.ABNL ;RESTORE ABNORMAL DRIVER RETURN ADDRESS 
CMP #377, NEWON *SEE IF NED INDICATION ON THIS DRIVE 
BEQ 1§ *BR IF NED NOT SET 
MOVB DRIVE. RI :GET DRIVE NUMBER 
BISB 80, Ri “CONVERT TO ASCII 
MOVB 1. ORVNED :PUT DRIVE NO. INTO MSG 
TYPE NONEXD *TYPE NON-EXISTENT DRIVE MESSAGE 
BR SERVICE THE ERROR 
-SEE IF DESIRED DRIVE IS READY 
{s: #S.DRY,P.AOO(RS) ; TEST FOR DRIVE READY 
Be 4g ;BR IF DRIVE READY 
MOVB DRIVE. R1 >GET DRIVE NUMBER 
BISB ¥°0 Ri scOWERT TO ASCII 
MOVB Y PUT DRIVE NUMBER IN MESSAGE BUFFER 
TYPE RE ATEDY *TYPE DRIVE NOT READY MESSAGE 


: HERE 
38: BIC #IE,RKCSI(R2) ;CLEAR RKO& INTERRUPT ENABLE BIT 
HALT HALT IS NECESSARY DURING MANUAL 
’ 


NTERVENTIONS, TO CHANGE PACK 
; gWRITE LOCK, START DRIVE ETC. 


“PRESS *CONT’ 
MOVB § #SUBCLR,P.CMND(RS) ;SET CORSYSTEN CLEAR ae 
ISR BC DRVCAL >CLEAR THE SUBSYSTEM 
MOV aC (SP) *SET UP ERROR RETURN ADDRESS 
RTS PC ; RETURN 
-SEE IF DRIVE IS WRITE-LOCKED 
4g: BIT #5. WRL,P.AQOCRS) See IF WRITE LOCK SET 
BNE cs BR IF WRITE PROTEC CTED 
MOVB DRIVE. RI GET DRIVE NUMBER 
BISB #0, Ri >CONVERT TO ASCII 
MOVB RL. NODRLK >PUT DRIVE NUMBER IN 
TYPE NOTLOK *TYPE “DRIVE NOT WRITE-LOCKED™ 
BR 45 ‘ SERVICE ERROR 
-RECALIBRATE DESIRED DRIVE, SET YOLUME VALID 
és: MOVB  SRECAL.P.CMND(RS) :SET RECALIBRATE COMMAND 
JSR PC jREC CALIBRATE DRIVE 
MOVB §_ #PACK,P.CMND(RS)’:SET PACK ACKNOWLEDGE COMMAND 
JSR PC, DRYCAL ;b0 PACK ACK. (SETS VOLUME VALID) 
*RETURN HERE 
dg: ADD #2, (SP) sFIX UP_RETURN ADDRESS ON STACK 
PC “ERROR-FREE RETURN 
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OZRENB.C CHKDRY - CHECK STATUS OF, DRIVE 


, 


tk ALNSEK GNMENT CYL (365 OCT). 


e363 P HEHEHE HEHE HEHEHE SH EHEEEHEE 
7 - K IN E INCREMENTS FROM CY T 
7325 s 5 RLLLELERELARALELE LALA ALLEL LALA LLSELELLALAELELALLAAERFLELLELERLE 


? 0317; ? ? 000001 ALNSEK: MOVB § 8SEEK,P.CMND(RS) SET SEEK COMMAND 
7 vet baeoee sale CLR PELNCRS) intr ey 10-0 
rare OSi55E Socses | oDdne es: ike OPCEMNCRSD. TRE CYL NOY 
7330 pate 38 aosSee vanes ooo002 ’ CMP WALNCYL+1,P.CYLNURS) ;SEE IF 365 REACHED YET 
7331 031790 901370 “BNE 2 :BR IF NOT YET 
7332 031752 RT PC RETURN 
7333 - 
7334 : 
7336 5 p RERRHRALEERAAALELLELELLLLLALELALLLLELELALLL ALLELE RELL LELELELEELE 
*& WAITYR - THIS SUBROUTINE , TYPES 
7338 * “TYPE <R> N READY”, AND THEN LOADS THE HEADS WHEN <R> IS TYPED 
7339 ETTTTTTT ESTEE ETSI ETT T TETTET ETE TT TET TST TTETTETTSTET ESTEE TTT EET 
7340 031754 112765 000107 O00001. WAITYR: MOVB § SUNLOAD,P.CMND(RS) ;SET UNLOAD COMMAND 
7341 031762 004737 040716 y JSR PC, DRVC -UNLOAD HEADS ON THIS DRIVE 
7342 031766 116768 000141 000001 MOVB = #ROSTAT P.CHND(RS)_ 4561 READ STATUS COMMAND 
7343 031774 O04 040716 1S: JSR PC, DRVCAL . STATUS OF DRIVE 
7344 032000 032765 OO00040 oDD044 BIT #S:HDHM,P.ADI(RS) ;SEE IF HEADS UNLOADED YET 
7345 032006 001772 BEQ 1$ :BR IF NOT YET 
734% 032010 104400 012751 2$ TYPE RWNRDY *TYPE “TYPE <R> WHEN READY” 
7347 032014 004737 250 ISR PC, PREPKB *PREPARE FOR KBD INPU 
7348 032020 005737 o0SS24 4§ TST INTCHR *SEE IF ANY INPUT YET 
7349 032024 001775 BEQ "BR IF NOT YET 
7350 032026 022737 o00122 o0ss24 CMP #’R, INTCHR ‘SEE IF <R> TYPED 
7351 932034 001403 BEQ ?BR IF <R> TYPED 
7352 032036 004737 027270 JSR PC, ECOBAD “ECHO BAD INPUT 
7353 032042 000762 BR 2g *GO ASK AGAIN 
7254 O32044 112765 000111 OO0001 6%: MOVB §§ &SRTSPL.P.CMND(RS) ;SET START SPINDLE COMMAND 
7355 O320S2 004737 040716 JSR PC, DRVCAL ;START SPINDLE AND LOAD HEADS 
| 7356 032056 RTS RETURN 
i; 7357 
| 
| 7369 5 LERRREREALL EEE ERAREA AGEL EERE REAR ER EL ELGG G EEE EERE EA EA ELLE 
7361 *&SETTUP - SET UP FOR LOOP ON 
7362 #THIS SUBROUTINE CANNOT BE CALLED BY ANY OTHER 
7363 +" --- ONLY MAI pees 
7364 01 1076 bittP MOV (SP) DESTACKLe MOVE RETURN Pe ON STACK 
oe H - 4 
ea BaebeM see BBL O7E MOV a TAbKeS, oP ReCINIT Wie Stack POINTER 
7367 932070 005037 005476 CLR RECODE *CLEAR ERROR RECOVERY FLAGS 
| 7368 032074 105037 003116 CLRB = ERRCNT *CLEAR RETRY ERROR COUNT 
| 7369 032100 012705 002620 MOV #PARMO, RS *SET PARAM 
| 7370 032104 112765 000177 ocOOcO! MOVB  #SUBCLR.P.CMND(RS) ;SET SUBSYSTEM CLEAR CMND 
| 7371 O32ll2 004737 O40716 JSR PC DRYCAL >CLEAR THE SUBSYSTEM 
| 7372 032116 012737 000000 177776 MOV #PRO,a *RE-ESTABLISH PRIORITY O 
7373 032124 000207 RTS PC + RETURN 
| 
| eR 
7377 oe ERERRLER LES EHS ERE EEK AL EK AE SELES AES RRS ESE RE RE RELEASE ELE KE REESE 


7378 ‘SBTTL CHKITR - CHECK CURRENT TEST ITERATION NUMBER 


ee eee SS SRE e-OS- eTe 





= CHECK CURRENT TEST ITERATION NUMBER 


73 :#THIS SUBROUTINE LoAdS THE ITERATION NUMBER FOR THE CURRENT 
7380 isles! NTO STINES, HECKS T TO DETERMINE IF THIS T 
: A THE SUBROUTI Re SRN 
HE STORED oFeD” re ca E TEST L’ BE sk PPED) . wet IS 
7384 $4N0 o7.04, HeWEVER on THE. ErRST Pcte, AD Bure VERIFY) OF A RLN 
7385 :#WHICH STARTED AT ADRS 200, ALL TESTS WILL BE RUN ONCE. 


0 CHKITR: MOV R1,-(SP) VE Ri 
iber3? 003126 r3I8 pucacs 3 IF DUAL-ACCESS FLAG SET 


3$ 
105737 003106 TSTB MDFLAG SEE IF 200 START 
001007 BNE 4$ :BR IF _NOT 

005737 
001004 
012737 


DZREN-B = RKBLLY RKO SUBSYSTEN VERIFICATION : PART 2  MACYLI 27(732) O3-NOV-76 21:42 PACE i6S 
DZRSNB. CNB HKITR 
1 
B35158 
032134 
032136 
032142 | 
7392 032144 001326 TST SPASS ; SEE IF FIRST PASS 
7393 032150 BNE 4g BR IF 
7394 032152 000001 001304 3%: MOV b1,STIMES :SET UP FOR 1 ITERATION 
7395 032160 OO0410 @R 1$ :GO_RLUN DUAL -AcCESS TEST 
73% O32162 013701 001102 4g: MOV STSTNN, Ri ;GET CURRENT TEST NUMBER 
7397 032166 005301 DEC RI jDECRENEN T BY 
7398 032170 006301 ASL ‘DOUBLE I 19 GET TEST LIST INDEX 
7399 032172 016137 005620 001304 MOV RarisTuRL), STIMES -LOAD iT eRag N NUMBER 
7400 032200 001403 BEQ 2s BR IF Thet SHOUD BE SKIP PED 
7401 062766 o00004 onp002 15: ADD #4, 2(SP) s ADJUST RETURN PC TO RUN THIS TEST 
7402 10 012601 2s: MOV (ss, Ri RESTORE 
7403 O322le O00207 RTS * RETURN 
7404 
| 7 
aie VSBTTL ROCHRS — READ A STRING OF KGD INPUT Guags |=“ 
7409 > ¥THIS SUBROUTINE READS Bet STRING OF UP 19 SEIGHTY INPUT - 
7410 *#CHARACTERS AT THE KBD TERMINATED BY < BND PLACE’ 
7411 ; THEM IN BUFFO, TERMINATED BY A NULL (Os ReYTE 
7412 *#RUB-OUT AND (tu) et Bre PROVIDED. 
| 7413 : #I MMEDIATELY FOLLOWING THE SUBROUTINE CALL THREE SPECIAL 
| 7414 *#RETURN ADDRESSES MUST BE LISTED: THE FIRST I 
| 7als :#TAKEN IF (*C) IS TYPED, THE SECOND IS TAKEN ErUR (#2) IS 
7416 + AND THE THIRD IS TAKEN IF ( ti) OR INVALID INPUT IS TYPED. 
| PUI? #IF (46) IS TYPED, THE SOFTWARE SWITCH REGISTER IS OPENED 
mie $rgr oD LcaT IO, IF SELECTED, AND THEN THE (¢G) RETURN 
| 7426 jxTHE pilUnBER OF INPUT CHARACTERS IN THE BUFFER IS RETURNED 
| 7 i 
| 3455 t+ CALL- JSR PC, ROCHRS 
| 74o4 % <CONTROL-C’ RETURN RODRESS? 
| 7425 * <CONTROL-Z RETURN RODRESS? 
| Hee i <CONTROL -U RROR RETURN ADDRESS> 
| rise : 5 RHREREERE RELA LALA E REA RELA ERAAELLARE RELA ELA LALLA E ELE LAREAALELELE 
| 7430 032214 ROCHRS: 
| 7431 032214 O10146 MOV R1,-(SP) ;SAVE RI 
| 7432 O32216 010246 MOV Re, -(5P) : SAVE 
| 7433 032220 005000 CLR RO ‘INITIALIZE CHARACTER COUNT 


7434 O3ee22e 005001 CLR RI INITIALIZE RUB-OUT INDICATOR 
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DZRENB. CMB RING OF KBD INPUT CHARS 
7435 -READ A CHARACTER 
7436 032224 104405 2s: RDCHR :READ A CHARACTER 
7437 O32226 112602 MOVE (SP)+,Re ‘GET CHARACTER INTO Re 
74 CHECK FOR (1C) 
7439 032230 122702 oc0003 CMP8  - #003,Re SEE IF (10) TYPED 
032234 001006 BNE 4§ :BR IF NOT (tC) 
rant 032236 104400 013354 TYPE CNTRLC “ECHO (40) 
7442 O3ec42 017666 OO0004 O00004 3s: MOV 34(SP),4(SP) PUT RETURN ADDRESS ON STACK 
7443 032250 000523 BR 2S :BR TO TAKE EXIT 
7444 -CHECK FOR (¢Z) 
7445 g3225? 122702 000032 4s: CMPB =—s-«- #032, Re ;SEE IF (12) TYPED 
7446 001006 SNE 6$ :BR IF NOT (42) 
7447 032260 104400 013361 TYPE CNTRLZ “ECHO (42) 
7448 O32264 082766 000002 onooo4 ADD 82, 4(SP) ‘MAKE OLD PC POINT TO NEXT RETURN ADR. 
7449 O3e272 000763 BR 3$ *BR TO TAKE (tZ) EXIT 
7450 “CHECK FOR (tU) 
7451 032274 122702 000025 b$: CMPB ss: 8025, R2 SEE IF (tU) TYPED 
7452 032300 001006 BNE 8S ‘BR IF NOT (tU) 
7453 032202 104400 913373 TYPE CNTRLU ECHO (tU 
7454 032306 062766 OOOCD4Y op0004 7s: ADD bY, 4(SP) * MAKE OLD oe POINT TO NEXT RETURN ADDR. 
7455 032314 000752 BR 3$ *BR TO TAKE (tU) EXIT 
7456 “CHECK FOR (1G) 
7457 032316 122702 000007 8s: CMPB =: #007,Re ;SEE IF (1G) TYPED 
| 7458 Q32322 001005 BNE 95 BR IF NOT (4G) 
| 7459 032384 1 013400 TYPE CNTRLG “ECHO (4G) 
7460 032330 nite 027562 JSR PC, GTSWRG OPEN SOFTWARE SWITCH REG. FOR CHANGE 
| 7461 032334 000764 ER ‘TAKE (tU) RETURN 
| 742 -CHECK FOR RUB-OUT (DELETE) 
| 2463 032336 122702 000177 8s: CMPB)s«#177,Re ;SEE IF RUB-OUT (DEL) TYPED 
| 7464 O32342 O01 BNE 14§ ?BR IF NOT RUB-OUT 
| 7465 0057 TST RO ;CHECK THE CHARACTER COUNT 
| 7466 001726 BEQ 2$ *BR IF C =0 
| 7467 032350 005701 TST 1 ‘CHECK THE RUB-OUT INDICATOR 
Tae 901003 1$ ?BR IF WE HAD A PREVIOUS RUB-OUT 
res 1 INC R -SET RUB-OUT INDICATOR 
| 7470 032356 104400 013411 TYPE BKSLSH *TYPE A BACK-SLASH ( 
| 247 d3e362 005534 11$: CLR SCRACH ; USE SCRATCH WORD FOR TEMP. BUFFER 
| Wy DEC RO *DECREMENT COUNT 
| 7473 032370 116037 005264 005534 MOVB § BUFFO(RO),SCRACH’:GET LAST CHAR. INTO BUFFER 
| 7474 032376 104400 o05534 TYPE SCRACH sECHO CHARACTER TO BE DELETED 
_ 7475 «032402 000710 BR GO READ ANOTHER CHARACTER 
7476 032404 005701 14$: TST Rl “CHECK THE RUB-OUT INDICATOR 
7477 032406 001403 BEQ 16S :BR IF INDICATOR IS NOT SET 
| 7478 O32410 104400 013411 TYPE BKSLSH : TYPE A 
7479 032414 005001 CLR Ri ‘CLEAR THE RUB-OUT INDICATOR 
7480 “CHECK FOR CARRIAGE RETURN 
7481 032416 122702 O00015 16S:  CMPB #015,Re SEE IF <CR> TYPED 
7482 O3e422 O01426 ‘BR IF <CR> 


;HANDLE POSSIBLE DIGIT : 
CLR SCRACH CRATCH WORD FOR TEMP. BUFFER 


i 
: 
82 

: 


;USE S 
110237 005534 MOVB Re, SCRACH ;GET THIS CHARACTER INTO BUFFER 
74 cian ete, 005534 TYPE RACH . s ECHO C TER TYPED 
74 11 005264 MOVE Re, BUFFOCRO) ;PUT C TER INTO BUFFER 
032444 005200 INC R ; ; INCREMENT Cane inn COUNTER 
7489 O3e44%6 Qee700 000120 CMP #80. ,RO ;SEE_ IF TOO MANY CHARACTERS TYPED 
7490 O3e4Se 001264 BNE es ;BR IF NOT TOO MANY 
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74 O4400 TYP. CRL Y R>_QN 
Sigh BeSded 193308 latte 005264 MOV! os BU OFF: iR0) eit Teenitarine i bt INTO BUFFER 
a bssuse 1ON400 ret TYPE QUES Ty 7 TR 
7 >,¢ * 
7495 Bssare oba7os BR ‘so Pe RROR Ble FROM RDCHRS 
7495 1 001315 19$: TYPE  ,SCRLF TYPE ERR LF) 
7497 032504 112760 o00000 ocos264 MOVE #0, BUFFOCRO) sPUT TERMTHATING NULL INTO BUFFER 
7498 O3ee1e 00000 oo0004 ADD #6°4(SP) *FIX UP RETURN ADDRESS 
7499 12602 24$: MOV (SP)+, Re ; RESTORE Re 
7500 O32S22 012601 MOV (SP)+'RI *RESTORE R 
e301 032524 000207 RTS PC + CBROUTINE EXIT 
cen i. 
ree 3 TT PTST © TYPE CURRENT TEST AND LIERATION NUMBER 
*SBTTL TST - TYPE CURRENT TEST AND ITERATION NUMBER 
7507 THIS SUBROGTINE TYPES : “XX YYYYYY", WITH NO <CR> 
7508 ?#0R <LF>. XX IS THE NUMBER OF THE CURRENT TEST AND 
7509 >*YYYYYY IS THE NUMBER OF ITERATIONS FOR THAT TEST. 
7510 #1 MUST CONTAIN THE INDEX INTO THE TEST LIST FOR 
7511 >#THE CURRENT TEST 
7512 PC, TYPTST 
ele | JAH HGG EHS HHH HIGHS 
7515 032526 104400 013422 curs: TYPE SPACE1 ; TYPE A SPACE 
cele 032532 O10146 MOV Ri 5 (SP) sPUT INDEX ONTO STACK - 
pete pases! ppeste INC (SP) INCREMENT Fo GET TEST NO. 
7519 032540 104402 TYPOS i TYPE TEST NO. IN OCTAL 
ete BE 6. Bis 
HOC ‘BYT aN SS LEADING ZEROS 
032544 104400 013415 TYPE SPACE6 TYPE & SPACES 
032550 016146 005620 MOV TSTLST(R1),-(SP)’:PUT CURRENT ITERATION NO. ONTO STACK 
032554 104402 TYPOS TYPE TTERATION N NO. IN OCTAL 
032556 006 .BYTE 6 :TYPE & DIGITS 
032557 000 “BYTE O *SUPPRESS LEADING ZEROS 
032560 000207 RTS PC *RETURN 


eT TYPPRM nw TYPE CURRENT PARAMETER NR RAAHRH EEE EE 
aa TYPE CURRENT PARAMETER 
STHIS SUBROUTINE TYPES THE E LINE XXSTYYYYYYY 


irr 1g. Ls WAL IN SCT Octa, BIGtTs, 118, HLTA, (EPoaye 


: ON eT Ri MUST CONTAIN THE ses INTO THE 
iePaRe TER TABLES, FOR THE CURRENT PARAMETER. 


AL NEN, NRE ACR ae aol At 
754 0161 013424 TYPPRM: MOV PRMNEM(R1) ,PRMBUF_ ;PUT MNEMONIC INTO OUTPUT BUFFER 
peqp neal 1 50 ere TYPE {PE “xXx=" 

37 005650 005470 MOV PRMLST(RL), Lowoct sPUT LOW BITS OF PARAM. INTO LOWOCT 


S037 005472 CLR HIGOCT sCLEAR HIGH BINARY BITS 
61 O40515 OD6000 CHP 4h, PRIINENCRL) iSEE IF yeBRANE TER 1S (MA) 


PAM Aa 


a ee ee nr eee on ee a: 
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ag GSees Bleve BoeN55 ON’ as; AB aLoueT “(Ses FUT aboREGs OF “etnakY VALUE ON STRCK 


7549 032630 JSR PC, at S0b20 ‘CONVERT B 0 OCTA 
7550 032534 po4s37 este JSR PC; J#SSUPRS : TYPE vYYYYYYY SUPPRESSING CT epING o’s 
7551 O3e€40 000207 RTS PC’ * RETURN 
oeeg 
7555 LSPepanen ere gnanncenenecensnssatagneeteneer ts a nagnanaenma 
7556 TL ENT WORD OF DATA PATTERN 15 
7557 STS SUBROUTINE TyeES THE LINE : WORD XX = YYYYYY, 
7558 *#WHERE XX IS THE NUMBER OF THE /GUBRENT WORD OF 
7559 HAUSER-DEF INED PATTERN 15, AND YYYYYY IS ITS 16-BIT 
7560 TAL DIGITS. <CR> AND LF ARE NOT TYPED. 
7561 Hoh SENTRY Ri MUST CONTAIN THE INDEX OF THE CURRENT 
7562 # N THE PATTERN 15 TABLE. 
7563 +. « TYPPAT 
7584 5 aE Conde wel Elicia ine ee 
7566 O32642 TYPPAT: 
7567 O32642 104400 013430 TYPE WORDSP sTYPE “WORD “ 
7568 O32646 010146 MOV Ri, -(SP) *PUT INDEX ONTO STACK 
7569 032650 006216 ASR (SP) sDIVIDE BY TWO FOR WORD NO. 
7570 O3ebSe 104402 TYPOS GO TYPE WORD NUMBER 
7571 032654 002 .BYTE 2 ‘DIGIT COUNT = 2 FOR TYPOC 
7572 032655 901 "BYTE | ;TELL TYP YPOS TO TYPE LEADING ZEROS 
7573 032656 104400 013436 TYPE EQUALS i TYP 
| 7574 O3e662 O1614€ 006765 MOV PATIS(R1),-(SP) ;GET BINARY VALUE OF THIS WORD 
| 7575 032666 104402 TYPOS *TYPE VALUE IN OCTAL 
| 7576 032670 006 -BYTE 6 TYPE 6 DIG 
| 7577 032671 001 "BYTE 1 *TYPE LEADING ZEROS 
| 7578 032672 000207 RTS Pc * RETURN 
| 7579 
ee 
| 7582 $ Asti MODPIe = MODIFY USER-DEFINED PATTERN ic 
7583 *SBTTL PIS - MODIFY USER-DEFINED PATTE 
| 7584 :*TH NIE SUBROUTINE DETERMINES WHETHER OR NOT USER- 
7585 ae PATTERN 15 SHOULD BE OPENED FOR MODIFICATION, AND 
| 7586 IT RE S THE NEW VALUES AND CONTROLS THEIR 
7587 *#INPUT ON THE TTY. IT CHECKS VALUES FOR VALIDITY, AND 
7588 ;xLOADS THE 16 WORDS INTO THE PATTERN 1S TABLE (PATIS) 
7589 %IF THE OPERATOR ANSWERS THE ST FOR A SPATTERN WORD 
| 7590 WITH EXCLAMATION POINT (1) ich? THE SUBROUTI 
7591 *#PROPAGATES THE LAST WORD TYPED INTO ALL REMAINING 
753 $RMORDS, OF OF THE PATTERN 1S TABLES ‘ 
Le a SPs PERRET rennet Yer tt Hee een ern e TE Tenet rene nnn er 
| 7596 032674 Sool 
| 7597 032674 O10046 MOV RO,-(SP) sSAVE RO 
| $233 035708 bideue HV Bly-(3) see Rk 
| 7600 SEE IF PARAMETER ts PT 
| 7601 032702 022761 052120 o06000 CMP #"PT,PRMNEM(RL) ;SEE IF CURRENT PARAMETER IS (PT) 
| 7602 032710 001127 BNE 225 *BR IF NOT ( 
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;SEE IF parr RN t PECIF 
cone 032712 E 3 S_SPECIFIED 


032737 100000 005670 BIT #B81T15,P ;SEE IF PATTERN 15 SPECIFIED 
032720 001523 EQ 23 IF NOT SPECIFIED 
3608 :SEE IF PATTERN 1S SHOULD BE noo fF Ted 
032722 104490 010750 ag: TYPE Yl] Abe "AETHER PATTERN 1S SHOULD BE MODIFIED 
7608 O3272e6 004737 032214 JSR PC, ROCHRS * READ 
7609 032732 933200 24g 3 (4C) RE SURN ADDRESS 
7610 032734 033210 26S (#2) RETURN ADDRESS 
7611 032736 032774 83 4G) OR ERROR RETURN ADDRESS 
7612 O3e740 005700 TST RO SEE IF NPUT 
7613 O3e742 001512 BEQ 225 :BR IF <lMODIF ICATION NOT REQUESTED 
7614 032744 022737 000115 905264 CMP #7M, BUFFO SEE I YP 
7615 O327S52 001405 BEQ 6S :BR 1F “MODIEIcATION REQUESTED 
7616 0320754 104400 o0S264 TYPE  ,BUFFO “ECHO BAD INPUT 
7617 030760 104400 001314 TYPE  ‘SQUES 
7618 032764 000756 BR 4g :GO ASK AGAIN 
7619 “MODIFY PATTERN 15 
7620 032766 104400 010720 és: TYPE SELP1S ; TYPE “MODIFY PATTERN 15" 
7621 O32 005001 CLR Ri _ INITIALIZE WORD INDEX 
7622 032774 004737 O32642 8S: JSR PC, TYPPAT *TYPE CURRENT WORD AND VALUE 
7623 033000 104400 Ols42e TYPE SPACE *TYPE A SPACE 
7624 033004 104400 O13442 TYPE PROMPT “TYPE ASTERISK AND SPACE 
7625 sREAD AND CHECK ineur IF ANY 
7525 033010 004727 032214 JSR C,RDCHRS’ ;READ NEW DATA PATTERN WORD 
7627 033014 033200 Dug *(#C) RETURN ADDRESS FOR RDCHRS 
7628 033016 033210. 26S >(#2) RETURN ADDRESS FOR RDCHRS 
7629 032774" 8$ :(+U) OR ERROR RETURN ADDR. FOR RDCHRS 
7630 033022 TST 0 “SEE IF ANY INPUT 
7631 033024 001006 BNE 125 "BR IF ANY INPUT 
7632 0330206 062701 oo0002 10$: ADD #2,R1 INCREMENT WORD INDEX 
7633 033032 022701 OO0040 CMP #32. ,R1 >SEE IF ALL DONE 
7634 033036 001454 BEQ 22$ *BR IF DONE, TO RETURN 
7635 033040 000755 BR 8S ; CONTINUE WITH NEXT WORD 
7636 O33042 022737 OO0041 OOS264 123: #§ CMP #’! BUFFO :SEE IF (#) TYP 
7637 033050 001431 BEQ 16$ iBR TO PROPAGATE CURRENT VALUE 
7638 032052 opso02 CLR R2 INIT. (?) INDIC 
| 7639 033054 122760 OO00041 0cO0S263 CMPB = #”!,BUFFO-1(RO) :SEE ir’ LAST CHAR IN BUF IS (!) 
7640 033062 001004 BNE 14$ ‘BR IF NOT (!) 
7641 033064 105060 005263 CLRB § BUFFO-1(RO) : INSERT TERMINATOR BYTE 
7642 932070 005300 DEC RO ; DECRENENT CHAR COUNT 
7643 033072 o0S202 INC R2 SET (!) INDICATOR 
7644 033074 O22700 ooncoS 14S: CMP #6, RO SEE HOW MANY CHARS NOW 
7645 033100 O0c426 BLT 20$ *BR IF 400 AANY 
| 764_ 033102 012746 o05264 MOV WBUFFO,-(SP) | ;GET BUF. ADDR. ON STACK FOR OCTBIN 
7647 033106 004737 052736 ISR PC, OCTBIN *CHECK DIGITS AND CONVERT TO BINARY 
7648 033112 033156 20$ “ERROR RETURN ADDRESS FOR OCTBIN 
7649 033114 012600 MOV (SP)+.RO GET BINARY VALUE 
7650 033116 005737 053070 TST sHI0ct *SEE IF VALUE EXCEEDS 16 BITS 
| 7651 O33122 O01015 BNE 205 *BR TO ECHO BAD INPUT 
| 7652 033124 010061 006766 MOV RO,PATIS(R1) | ;PUT NEW WORD VALUE INTO TABLE 
| 7653 033130 005702 TST Re ;SEE IF (3) WAS TYPED 
| 7654 033132 001735 BEQ 10$ R IF (!) WAS NOT TYPED 
7656 j PROPAGATE, CURRENT WORD TO END oF Ba TERN 15 TABLE 
| 7656 033134 022701 000036 16S: CMP #30. ,R1 -SEE IF ALL DONE YET 
| 7657 033140 001413 BEQ 225 *BR IF DONE 
| 7658 033142 016161 006766 006770 MOV PEt sca) pariseatea sPROPAGATE TO NEXT WORD 
} 
i 
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033150 
0 033154 


7659 
7662 
7663 
7664 033166 
7665 
7666 
7667 
7668 
7669 033176 
7670 
7671 
76 

| 

| 

| 

i 

| 

| 

i 

| 

' 


033272 


033302 
033310 
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062701 
000767 


104400 


012766 
00077 


012766 
000764 


101365 


013761 
000457 


032737 
001355 


ooo00e 


005264 
001314 


14520 


016124 


040515 


ooo006 


000006 


006000 


o0s472 


000000 


005470 
005470 


005470 


c00001 


005724 
005726 


005650 


005470 


ALD 


R 

ECHO aa INPUT 

20$: TYPE  ,BUFFO 
TYPE 


BR 
;NORMAL RETURN 


225: MOV (SP)+,R2 
MOV (SP)+/RI 
MOV (SP)+,RO 


RTS 
=(40) RETURN 
bug: MOV gORVIST, BSP) 


BR 

-(¢2) RETURN 

26S: MOV BASKMOE, 6(SP) 
BR 225 


'BR TO ASK A 


O3-NOV-76 21:43 PACE i70 


; INCREMENT WORD INDEX 
;LOOP UNTIL DONE 


;ECHO BAD INPUT 
*TYPE <2) 9 ,» <LF> 


;RESTORE Re 
sRESTORE RI 
RESTORE RO 
; RETURN 


;PC FOR it) fete 
BR TO RETU 


;PC FOR 12) ew 
;BR TO RETU 


ga ge Aen A ei pacer ete citi 
ap L ~ CHECK VALUE OF INPUT PARAMETER 

;*THIS SUBROUTINE CHECKS THE CONTENTS OF LOWOCT AND 

; *HIGOCT Sa 3e-BIT a) AGAINST LOWER AND UPPE 


;*LIMITS FOR THE CURRENT 4 ER. THE PARAMETER TABLE 
;*#INDEX FOR THE CURRENT TER BE_PASSED 
;#TO CHKPRM IN Rl ON ENTRY. IF THE PARAMETER VALUE 
S LEGAL, IT IS ENTERED INTO THE PARAMETER TABLE 
3 #(PRMLST) it NOT a, R IS MADE TO THE ADDR. FOLLOWING 
HE CALL TO CHKPRM P ER HAS A 2-WORD 


:*TH OC IF THE PARAMET 

j #VALUE (32 BITS) R1 IS INCREMENTED BY 2 BEFORE RETURN. 
* CALL - PC, CHKPRM 

te <ERROR RETURN ADDRESS> 


;# ETU 
Oe ee ee 


CHKPRM: SAVREG 
MOV. RI,Re 
ASL oR 
CMP ss" MA, PRMNEM(R1) 
BEG 
TST —-HIGOCT 
BEQ 
1S: MOV BSP), (SP) 


sCHECK VALIDITY 


18$: CMP LOWOCT, PRMLIM(Re) 
BLO 16$ 
LOWOCT, PRNLING2CRED 


CMP 


BHI 16$ 
;UPDATE 16-BIT PARAMETER VALUE 1h LIST 
MOV LOWOCT, PRMLST(R1) 


;SAVE RO-R 
;GET ry oF INDEX 


SEE IF PARAMETER IS (MA) 
:SEE IF HIGH BITS = 0 
GET ERROR RETURN PC 

:GO URN 

OF 16-BIT PARAMETER VAL 


UE 
cee IF INPUT VALUE IS TOO SMALL 
BR IF INPUT VALUE TOO SMALL 

“SEE IF INPUT VALUE IS TOO LARGE 
R fF INPUT VALUE IS TOO LARGE 


;PUT NEW PARAMETER VALUE INTO LIST 
TURN 


;CHECK VALIDITY OF 32-BIT PARAMETER. VA VALUE 


20$: BIT #8170, LOWOCT 
BNE 16$ 


;SEE IF MA IS ODD 
:BR IF MA IS ODD 





a eres ee ee 
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| DSRENS.CMS 0” CCHKPRM = CHECK VALUE OF INPUT PaRAMe TER 
7715 033312 23762 O0SH72 cOS7e6 CMP HIGOCT, PRM. Ine2(R2) -SEE IF HIGH WORD TOO SMALL 
cri peesed 103751 Si 165 tF HIGH WORD I5 TOO SMA 
| P73 00: BNE bs $ IF HIGH WORD NOT EQUAL 6 LOW LIMIT 
| 97} 7e2 OCS47O Ocs7e4 CMP LOWOCT, samuel jSte IF LOW WORD IS T 
i; 744 BLO 1é$ -BA IF LOW WORD IS TOO 
ce 4 es o0s472 oos73s2 248: CMP HIGOCT, PRINS) SEE iF HIGH WORD gi 764 BIG 
| ~<55 bes ahead EN $5 Ee iF i tion Ro T EQUAL TO UPPER LIM 
| 7783 Gave 008470 005730 CMP LOMOCT, PRMLINW(RE) {SEE IF LOW WORD IS 109 LARGE 
77o4 «533364 161333 BHI 16$ -5R fF LOW WORD IS TOC LARGE 
i iUBOATE Ze-817 PARAMETER VALUE_IN LIST 
7726 033356 013761 Oos470 D0SESO 26S LOWOCT, T(R1) jPUur bow WORD INTO IST 
787 033364 013761 005472 Oosese NOV HT aocT pers (R13 ;SUT HIGH WORD LIST 
- 03337e 033450 — oe ia weet oon COUNT eee 
a>. reed 01045: TYPE MAWROC [TYPE “MAX WORD =” 
seal 1 953170 MOV RO, SUMLO! 
10137 0031 MOV R1. SUMHIL 
res Sanile bere 170 MOV aSUi 01 -(SP)  ;PUT POINTER ON STACK 
; 16 os 74 ISR PC, $0826 ‘CONVERT TO OCTAL 
| 7735 te 4737 os¥e10 18 PE, SSUPRS j TYPE i, aes 
| oo38 ; Seeree oos014 ADD $2, 14(SP) | tNCREMENT’ RA NDEX 
es 032440 16 ees: ADD . 82, (SP) ;GET NORAGL RETURN PE 
Fret Sauce Abcea? Re pc RETURN 
| ‘?7ap 
ee gat 
7744 ; en yeas gt pp cope rte gente SLERLEESEELES 
7745  bexWRDC. = T MAX WORD COUNT FOR CURRENT MEM LIMITS AND CURRENT MA, 
7745 ;#AND LEAVE THE WORD COUNT IN R1-RO. NO REGISTERS ARE SAVED. 
7747 ae te en eee SELELRELS ESS HS TE BSS SFSESSSSERSS 
7748 033450 913700 005574 ikuroe: MAHL GeT LO BTS OF Ca, LIM 
ae BS5uc0 Sue 163700 : Speeo8 nov reathte, —_ oTorhneT fn T MA Menon MAHILM 
5 fee 1 t ooseo2 a5 Te Ri 
Me neta ae] BM? 273” sIF NEGATIVE, RETURN 
7754 033474 pooest cue a sDIVIDE BY 2°10 GET WORDS 
re ee ae S i 
oooco1 ADD #1,R0 ; INCREMENT BY 1 WORD 
7758 005501 ADC Ri 
7759 033510 005701 TST RI 
7760 033612 001403 BEQ «27S air WORD COUNT < 65.535 DEC 
776 14 CLR RO MAKE WORD COUNT = 65,536 
a5 16 012701 coco: MOV #1,R1 
7763 p0d207 27$: RTs PC ane 
7765 
7765 
77&7 $ LOURHEDEEESUEERDRRDEDSSEUSS SNES SEER DSSEOSSRSR DESEO ONSEREUDEDANND 
7768 *taTTL - 7 SERIAL NUMBER (L ITS) 
7769 THIS SUBROUTINE TYPES *ORIVE SER. NO. XXX" CIN DECIMAL), WITH LEADING 
7776 :#ZEROS SUPPRESSED. 


 _—— ee ee ee ee 
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OZRSENS. CMS DRVSER - TYPE DRIVE SERIAL NUMBER (LOW 3 DIGITS) 





777k 3 j RERRRESAERFSEESERESRELE SES SEALERS ESSE SSESESERELALE EA ELSSS SAS ES 
7772 10 ZAVSER: SAVREG :SAVE RO-RS 
| 9773 0047 726 JSR PC, INITSS “CLEAR §$.S. AND PARAMETERS 
7774 41 00000: MOVE eRberar P.CMND (RS deisel BEA STATU COMMAND 
7775 1 ISR PC ORVCAL : STA THIS DRIVE 
1 1116 TYPE  ,ORIV : TYPE “DRIVE” 
oo8 O4400 011205 TYPE SE : "SER. NO. “ 
16501 4 MOV P Ald (RS) Rl :GET “A” STATUS BYTE 11 
oor b39560 j 052776 MD sSOCTVL, RG :GET OF CHAR BUFFER 
7730 } MOV RY, =< SPS :STORE IT ON STACK FOR $SUPRS 
278 1 o0c903 MOY 83,R3 [INIT CHAR C 
778 1 : OL eH : INITIALIZE BIT POSITIONS 
7784 idl 4§; ROL R! :GET NEXT 4 BITS 
: it eH 
| 7787 033604 bbe 101 ROL Ri 
/ 1 $ 
7788 0101 MOV R1,RO GET A WORKING COPY 
| 779 03361 042700 177760 BIC 81?7760,RO ;CLEAR ALL BUT LOW 4 BITS 
| 7790 14 052700 00060 BIS 8’0,R0 sCONVERT A DIGIT TO ASCIT 
| 7791 933620 110004 MOVE RO, tR4)+ :PUT ASCII DIGIT INTO CHAR BUFFER 
| 335 Bess Bere fe OS TE ROT S CHARS YET 
| 77% ee 105014 eLRB 38s (R4#) INSERT NULL INATOR 
| 7735 033630 On? a 054219 ISR PC, J8SSUPRS ‘TYPE DRIVE SER. NUMBER. 
soe 033624 104490 9001315 TYPE  ,SCRL ?TYPE ‘CRD AND <LF> = ' 
033640 104407 SREG ?RESTORE RO-RS 
7o38 033642 900207 RTS PC : RETURN 
ro 
} Ht sz SEEELESLRSSFST SRELESAFSESERERKELELEELELERSSLEAFSFESLESELSRELRASESEL 
"SBTTL CRTSER - TYPE CARTRIDGE SERIAL 
7204 :#THIS SUBROUTINE TYPES “CART. SER. NO. XXXXXXXXXXX" (IN OCTAL), 
7805 :#WITH LEADING ZEROS SUPPRESSED. 
a =  EFFSEEESSSASEEESSALEESELALESLELAFLALSLAALLELSRSSSSSAALLELESLL ER 
023644 004737 030726 ERTSER: JSR PC. INITSS sCLEAR S.S. AND TERS 
7808 033650 1050S 000007 CLRB 3s P. AS1HRS) “SET 22-SECTOR FORMAT 
7809 033654 ip 003115 TSTB = FORMAT *CHECK THE ACTUAL FORMAT 
Feit BSSEEe TDSees 000004 Free PR SECT(RS) OR UF EE Soke Reap SECTOR 1 
7Ble 032666 112765 000121 op0001 4s MOVB TA,P.CMND(RS) ;SET READ COMMAND 
7813 933674 O01 000632 MOV SLSTCYL;P.CYLN(RS) :SET CYL = 632(0CT) 
rele fais tierce Geom Seong NP anata ote) AF el rn conwes 
1 16 Oo 1 rt V 8-2,P. ; 
7816 933716 Ole7 7777 00012 MO 2,.P.WCCRS) SET WORD COUNT TO READ 2 WORDS 
ris fees nto FUE fa, Tegel ag Sena INS 
7819 023734 104400 011205 T : TYPE “SER. NO. “ 
033740 012746 064574 MOV GET POINTER F 
7231 033744 004737 053674 ISR : R 
7622 033750 004737 054210 JSR : TYPE C 
7823 033754 104400 001315 TYPE : 
7 033760 000207 RET 


Rae 





corerr------ > 
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BERENS. CMS CATER = TIPE CARTRIOSE aR ha NUMER 
7827 
7828 : iat STALL © STALL FAR GT LIT STALL TIS 
7823 - SBTTL STALL - STALL FOR ST UNtT 2 TLL T INES 
7830 :#IF SWR Bit g=0 THIS SUBROY INE STALLS FOR ST STALL TIMES, 
7831 *#WHERE AS fut The = FOR AN “AVERAGE” CPU. IF BIT § 
7832 :#1S EQUAL 2? Banoon STALL IS APPLIED. 
7833 * CAL JSR’ = PC ST 
cess ACN OL mala scone 
? 933762 O10046 mis MOV RO, -(SP) ; SAVE 
; 033764 O1D0i46 MOV (SP) :SAVE RI 
7838 033765 000409 145144 IT apt 708, aSWR ‘APPLY RANDOM STALL 7? 
7839 033774 001407 9 1$ :BR IF NOT RANDOM 
7240 023778 0047 72 ISR PC, SRAND ; GENERATE PSEUDO-RANDOM NUMBER 
7841 ae 172 MOV SLONUM, RO GET IT INTO. RO 
7842 034008 006200 ASR RO :SCALE IT DOWN 
| 7843 534010 006200 ASR RO 
| 7844 O340le DO0403 BR 2$ :GO STALL WITH RANDOM NO. 
7845 034014 913700 9sosso4 18: MOV STALLS, RO :GET REQUESTED NO. OF STALLS 
7BY46 001406 BEQ &$ "RETURN IF NO STALL REQUIRED 
7847 O34022 612701 900016 28: MOV 14. ,R1 :SET CONSTANT FOR 4O US 
748 O340e% 005301 45: DEC Ri INNER LOOP COUNTER 
7849 091376 BNE 4§ INNER LOOP 8R 
7850 034032 005300 DEC RO :OUTER LOOP COUNTER 
| 7851 O30 001372 ai ‘OUTER LOOP BR 
7B52 012601 é$: MOV (SP)+,R1 *RESTORE RI 
| 7853 34040 912600 (SP)+'RO “RESTORE RO 
| 7854 O34042 900207 RTS * RETURN 
| 7855 
«eS | 
7258 isTTL RNDADR = RANDOM CYLINDER ADDRESS GENERATOR 
| 7859 T YLIN ADDRES TOR 
| 7860 i SUBROUTINE GENERATES PSEUIDO-RANDOM 9-SIT CYLINDER 
| 7861 + # AND LEAVES IT IN “CYLNOR™. IT REQUIRES THE SYSMAC 
| 7862 + INE SRAND. 
! 7BE4 + alla iat i a a aa ht 
| 7865 034044 004737 053072 : JSR PC, SRAND sGENERATE 2 16-BIT RANDOM NUMBERS 
| 7866 O340S50 013737 053172 oossoS MOV SLONUM,CYLNDR GET A RANDOM 
| 7867 034056 042737 177000 005506 BIC #177000,CYLNDR SCALE IT TO 9 BITS 
«7868 O34064 022737 000632 005506 CMP #632, CYLNOR -SEE IF CYL IS TOO BIG 
7869 034072 002003 BGE ee *BR IF CYL IS OK 
| 7870 042737 Oo0400 o0sso6 BIC 8BITO8,CYLNDR SCALE DOWN TO A VALID CYLINDER 
: 7871 034102 000207 28: RTS PC : RETURN 
| 7873 
| 7874 
| 7875 $ pe DSEC «THIS SUBROUTINE LOADS THE CONTENTS OF RO INTO ALL 
7876 +& LODSEC - THIS SUBROUTINE LOADS THE CONTENTS OF RO INTO ALL 
7877 ie Pee C) WORDS OF THE DATA BUFFER ( ). 
7678 SASSER ESEASSREAAESEAALELAASRALALERAAELAARAAL ALARA AAAASEAEREREE 
7879 034104 104406 (bOSEC: SAVREG SAVE RO-RS 
7280 O34106 012701 064574 MOV #RWBUF R *GET ADDRESS OF DATA BUF INTO RI 
| 7881 O341i2 010021 2s: MOV =—s_- RO, (R Rise. PUT WORD INTO BUFFER 
782 034114 Oe01e7 065574 CMP RI, SRWBUF+S12. ;SEE IF 256 WORDS WRITTEN YET 








LT TT 
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SSRENG” cn = RANDOM CYLINDER ADDRESS GENERATOR 


7883 O341 1374 F NOT DONE YET 
7884 Baaiss | 407 Bienes is TORE RO-RS 
B85 034124 ba020> RTS Pc 
cee 4 2S ESRELEELEEREESELSES ELS EEEFSEELES SEEN S EEBLERESLEFRELFSELSELAZSESESR 
7390 j#_TRKCHK : THIS SUBROUTINE DOES A WRITE-CHECK OF SECTOR FS ON CYL 
oea5 irene R + 100(OCT) FOR’ THA Fant at bc OF pata WRITTEN. 
7893 :#THE PARAME -L 
73894 ° a an ae ee 
7895 O34126 10446 CHK: SAVREG VE RO-RS 
7896 034130 O1SS46 069004 MOV e. CT(RS),-(SP)' oa TRACK AND SECTOR PARAMETERS 
7897 O34134 10506: OOv%0S CLRB RCK(RS) ig TRACK NO. 
7898 -LOAD THE DATA BUFFER WITH THE C TRICK NO. 
7899 oa4iNg 116500 2s: MOVB  P.TRCK(RS),RO RENT TRACK NO. INTO RO ‘- 
7300 144 1 ADD #100, RO ADD 100(0CT) TO TRACK NO. 
73901 O34150 004737 934104 ISR PC, LODSEC “LOAD paTA WITH TRACK NO. + 100(0CT) 
sane Gauls iie7es 000131 oo0co: MOVB § SWRICHK.P.CMND(RS) :SET WRITE CHECK COMMAND 
ig2 040716 JSR PC, DRVCAL sPERFORM THE WRITE CHECK 

7304 O34166 105265 000005 INCB ——&P. TRCK(RS) * INCREMENT THE TRACK NO. 
7305 O3417e 1 000003 ooc0cs CNPB = 83,P.TRCK(RS) SEE Ir DONE WITH ALL TRACKS 
7906 O34 00135 BNE 2 BR IF NOT DONE YET 
7907 O34202 012665 ooc004 MOV (SP)+,P.SECT(RS) :RESTORE TRACK AND SECTOR PARAMETERS 
7308 O34206 104407 RESREG REST 
3303 034210 900207 RTS PC * RETURN 
za : 
7313 $ LOOP 14 = GENERATE SIXTEEN PSEUDO-RANDOM NUMBERS AND LOAD TMEM 
7314 : ODP NERATE SIX PSEUDO-RANDOM NUMBERS AND LOAD THEM 
7915 ret. THE PATTERN 14 
7316 | AHHH HHH HHH HGH HHH HEHEHE 
73917 O34212 104406 CADP14: SAVREG RO 
7318 034214 012701 000010 #8. .R STNIT LOOP COUNTER TO 8. 
7319 034220 012700 006706 - HOV apati4 RO sGET BODRESS OF. PATTERN 14 BUFFER 
rast p3i55q nie 523095 MOV SLONUM, (RO)+ BOT ONE NUMBER INTO BOO ERN we 
Le 034234 013720 053170 MOV SHINUM,(RO)+ | :PUT OTHER NO. INTO PATTERN 

034 005301 DEC Ri -SEE IF 16 WORDS LOADED YET 
7524 034 001370 BNE 4§ *BR IF NOT YET 
7925 034244 104407 RESREG *RESTORE RO-RS 
Pace 034246 000207 RTS PC : 
ras 
a SSTTL FINGOR ~ COMPUTE FINAL PACK AOORESS =o 

1 

7932 -SBTTL oF SUBROUTINE COE USED ite A MOORE SRSFER R HAS COMPLETED, 
7933 : THE F PACK ADDRESS AT TERMINATION. THE 2’S CONP. or THE 
7934 *#WORD NO. AT THE POINT OF INTEREST IS PASSED IN LASTWC. THIS IS USED WITH 
7935 pa P.T (Re), AND P.SECT(RS) TOC Te THE CORRESPONDING 
7936 #PACK ADDRESS, WHICH IS RETURNED IN FINCYL, FINTRK, AND FINSEC. 
7537 SUBROUTINE IS USED TO DETERMINE THE PACK ADDRESS OF A SOFTWARE 
7938 On A MISCOMPARE. 
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D " FI = COMPUTE FINAL PACK ADDRESS 
ee Re ee a eee 
034250 104406 EINAOR: SAVREG : SAVE 
Os4ese 013746 005572 Pov ~ LASTWC,-(SP) ; STORE WORD C 
034 OoSyie NEG (SP) T aaah 
034 18$: CLR -(SP) AK Book ON STACK 
O34262 116616 000003 MOVB 3(38), (SP) “STORE NO. OF SECTORS TRANSSERRED 
034266 905068 o00002 CLR (SP) *CLEAR LOCATION ON ST ack 
Oaere 16566 gp9964 ooooo2 MOVE Bees (RS). ,2(SP) paces STARTING SECTOR 
034304 iP ooo00de cre step) °C rR We OF TRACKS. TRANSEER BED 
034310 sea o00026 MOV sar eo A cle FOR 22 SECTORS . 
034314 105732 003115 ISTB FORMAT s DETERMINE THE THE FORMAT 
eae ooo024 MOV #20. .RO ee FoR™ ob Se 


‘ ; TORS 
034326 Oe0016 198: 0, (SP) ;CHECK FOR SECTOR OVERFLOW 


034330 101004 BHI 208 NO, CHECK IF SECTOR CORRECT 
Os133¢ 160016 SUB RO, (SP) sDERRSTENT SECTOR COUNT BY 20 OR 22 
O34 rg —— BR 198 :CHECK FOR SECTOR OVERFLOW - 
paaauc tesa ee we eee te $Sr0re FI ae TRACKS TRANSFERRED 
034350 116516 000005 MOVS P.TRCK(RS),(SP) :STORE STARTING TRACK 
f3a3e0 peepee ‘Bo0008 One! eR step) aay se Tenn ne CINDER a 
034364 122716 O00003 218: CMPB #3, (SP) CHECK FOR OVERFLOW 
| 034370 101005 BHI ee 5) iND, CHECK FINAL TRACK ai 
034376 O0S26 00002 INC (oP) Lea 1 ia 
8 ces Nee = o05579 22s: HOVE (SPD FINTRK ‘euerie rf sees 
19 Orie? oSse6 MOV cee NCY 
034420 on TSI (SP)+ FINCYL _— 
034422 104407 SREG iCLERN 0 
O34424 RTS PC > RETURN 
} 
| . 5 ETT NSDBUF «LORD THE READ WRITE DATA BUFFER ee 
THIS SUBROUTINE LOADS THE READ/WRITE DATA BUFFER (POINTED TO BY 
-% PMA PMA+2) WITH APPROPRIATE REPEATING DATA PATTERN. IF 
: = THE DATA WHICH IS LOADED IS COMPRISED 


TER PATRN =O ON ENT 
taOF ALL THE PATTERNS QO-is ColcK VERIFY ; DATA TESTO. 
TOE PATRN'TS NOT T AB. QUICK VERIEY DEFAULT DAT T 
OF THE PATTERN IDENTIFIED BY THE NO. OF THE BIT SET IN RI ON 
: ENTRY INTO THE BUFFER. 
38 PEESTUTESSESTUTSTSSTETOSITSSTOS TOSS TTT TTT TT TTT TTT TTT TTT ETE TS | 


AER & 


034426 104406 LODBUF: SAVREG ; SAVE RO-RS 
034430 013702 ooss64 MOV WDSXFR, Re GET NO. OF WORDS 
034434 005737 005536 TST PATRN SEE IF QUICK VERIFY DATA TEST DESIRED 
001 BNE 3 *BR IF NOT QUICK VERIFY 
01 006026 MOV #PATOD, RO ‘SET DATA PAT TERN STARTING ADDRESS 
baie 012746 o00400 MOV #256. .-(SP) SET PATTERN WORD COUNT 
012701 064574 MOV #RWBUF RI SET BUFFER ss 
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LO = LOA E DATA BUFFER 
MES DoSoRe 3 BR a° FOE ED TERN R 
ia Badu Bg3oR° 000001 rt gif I81T0,Ri iB if THIS elt ts. SET 
7998 O34466 001002 BNE 6$ F HIS. BIT I 
a fre Seat? mH EYE 
1 ASR Ri 0 EXARINE NEXT BIT 
8001 O34474 900772 SR 4§ 0 CHECK NEXT 
8002 034476 006300 b$: ASL RO ROL TIPLY PATTERN NO. BY 32(DEC) 
8003 606300 ASL RO 
B00 ASL RO 
006300 ASL RO 
Soo? paaete Bees00 26 Abb RPATOO RO :GET ADDRESS OF DESIRED PATTERN 
B008 O34514 012746 aa MOV #16. .-(SP) SET PATTERN WORD COUNT 
8009 034520 013701 O0S604 MOV PMA. RI *SET BUFFER ADDRESS 
8010 O3452e4 005737 OS6216 TST SKTI1 :SEE IF MEM MGT PRESENT 
8011 034530 100036 BPL 30$ -BR IF NOT PRESENT 
sole ;BUFFER LOAD LOOP FOR NEM | MGT STARTS HERE 
BO13 034532 013737 903200 172354 MOV SAVPAR, J8KIPARS ;SET UP WORKING PAR 
8014 034540 052737 000001 177572 BIS #BITO, d#SRO “TURN ON MEMORY MANAGEMENT 
8015 034546 042701 160000 BIC #160000, R1 *FORCE RELOCATION THRU KIPARS 
ais payeee bra008 a 228 AoY #140000, ;GET_A copy OF PATTERN ADDRESS 
8018 O34560 O11604 MOV (SP) RY INIT PATT 
| 8019 34562 012321 24s: (R3)4. (R1)+ LOAD A DATA HORD IND BUFFER 
8020 O34564 032701 020000 BIT #81T13,R1 >SEE IF OVERFLOW TO NEXT PAGE 
Bo52 o:739 172354 200, D8KIPARG ©: ENCRENENT PAR BY 4K FOR NEW PAGE 
Boss Baucoe nai SeaBOD BIC 3h oe OR ORAIN 
| «EbSe Bauepe bots wm Oe OORT ENT Done 
| Bese BSUeTB BOeaoS. DEC ORY EC PA 
| 80207 O34612 601363 BNE 24s *BR IF NOT DONE WITH PATTERN YET 
034614 000760 225 *BR TO T PATT 
8023 O346i6 042737 O00001 177572 28S: IC #51TO, #SRO : DISABLE 
8030 034624 O00410 BR 44g 79 TO RET 
8031 BUFFER LOAD LOOP FOR NO NEM NGT STARTS 
| B35 auESB Otieos ws: By ~ CRIT PATTERN WORD COUNT 
| Bie neta pieee 34S: MOV toe) (R1)+ *LOAD A DATA WORD INTO BUFFER 
8035 005302 DEC R2 sDEC 
8036 001403 BEQ 44g *BR I IF BLL DO 
005304 DEC : DECREMENT WORD COUNT 
| 8038 OaibHe 001373 BNE au5 iBR 6 Rep aren WITH TPATTERN YET 
| Bi 034646 005726 44g: TST (SP)+ + BOP oes 
| 8041 O34650 104407 RESREG ; RESTORE RoR 
| Bove 034652 000207 RTS PC + RETURN 
| 8044 
Bo4s 
BO46 : aT CHPBUF = SOFTUARE COMPARE DAT TN NNHAHEAEAEEES 
| Bou? "earr TTL _CHPRUF — SOFTWARE COMPARE DATA 
| 8048 5 #THI SUBROUTINE F PERF ORNS A SOFTWARE COMPARE OF THE R/W DATA BUFFER (POINTED 
| =gg49 #T0 BY PMA AND PMA+2) TO THE APPROPRIATE REPEATING DATA PATTERN. IF 
| 8050 t #PARAMETER PATRN = 0 ON ENTRY, THE DATA IS COMPRISED OF ALL THE PATTERNS 











8054 
8055 
8056 
8057 
8058 
8061 
8062 
8063 


Rae 


See 


4 


oo 

Se 

8 
RO =e 


8 
2 


: 


8 
R 


§ 


PCE SeSERp ae 


a Stas 


Mwwowoww 
SRBSBSS 
RRL2BRLB 


UBS YS TN VERIFT AT a 2 


000040 063113 
O00007 Ob4465 


005534 
042130 
00536 
006026 
000400 
064574 


000001 


035540 


MACY11 27(732) 


O3-NOV-76 21:43 PAGE i77 


;*#00-15 couren VERIFY eo DATA TEST). 


ithe 


OF THE BIT SET IN RI ON ENTRY IDENTIFIES THE 
PEATING Tae PATTERN "° COMPARE AGAINST. 


eee ate ee eke a 


dhpauF: 5 


3$: 
4§: 


6S: 


BPL 
re FOR MEM MGT STARTS" HERE 


ees: 
24s: 


ess: 


26S: 


273: 


30S: 


gave 
: 
: 
: 
i 


; COMPARE Poo FOR NO_MEM MGT stat 
MOV RO “a 


eves En or erwewewreresececes 


;SAVE RO-RS 
sRESTORE- ERROR MSG PARAMS 


; OR 
S. PRINT 
: SEE iF THIS IS QUICK VERIFY DEFAULT DATA TEST 


:B NO 

GET DATA PATTERN STARTING ADDR 
;SET PATTERN WORD COUNT 

seer BUFFER ADDRESS 


:5 

0c 

INIT parton NO. 
;SEE IF I 

;8R IF THis BIT IS SET 
; INCREMENT PATTERN NUMBER 
;SHIFT TO 


;BR T 
;MULTIPLY PATTERN NO. B 


a 
'BR IF NOT PRESENT 


i 
Z 


T_ PAGE 


Sram 


Y_OF PATTERN ADDRESS 
IN T PA PATTERN WORD COUNT 





SBE ia NE PENTRU 2 


SRENB 

8107 oss112 022321 

B18 lig BDb139 o3ss20 

aii Pseise ATEOSS DBSAAE ocuuee 

8113 035134 910237 001202 

8114 O35140 163737 005564 o01202 

B11S 035146 013737 OOled2 O0SS7e 

8116 O35154 004737 O34eS0 

8117 035160 104406 

8118 035162 013700 

8119 035166 113701 

gie0 Gasi7e 11 005571 

8121 035176 004737 O40b1e 

Ble2 O35202 104407 

8123 035204 032737 001000 O0S476 

8124 l2 001132 

8125 035214 005737 90SS34 

8126 035220 001024 

8127 O35222 105737 003134 

8128 O35226 001411 

8129 035230 013737 001174 

8130 O35e3% 013727 005260 001176 

8131 O35e44 104116 

gise 35246 104117 

S133 paesee | fougad 
| 8135 935954 012737. 1 001174 
| 8139 QSeSee boca? potson 
| Bis Baesee Dosey Hosea 
| 9139 O35e76 032777 OO0001 143634 
| 8140 035304 001004 
| 8141 035306 022737 000012 00ss34 
| give S353i4 Ooesi1 

8143 035316 O02 001174 ocosses 
Biv 35304 O01010 a. 
| Blue S3e358 dpioo4 _— 
| 8142 035336 123737 001200 o0ss71 
| BiNg 3534 Ooluie 
| 8149 035346 O1 OOSS66 001174 
| B150 035354 113737 70 001176 
| B151 035362 113737 005571 001200 
| gibe 036370 104115 
| 153 005437 001202 
| glgy a 16337 177776 001204 
Ble ts BtSh3> Ao; 00121 
| 157 035420 005037 001210 

ise Ga54e4 ele 01212 

Blea paeasd oo1212 

8161 O25442 005537 001210 

Ble2 063737 005606 001210 


[po eee e+ 


r 


34S: 
318: 
55S 


- 4ES: 


48S: 


365: 


38S: 


425; 


44S: 


MOV 
COMMON COMPARE 
s MOV 
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(R3)+, (R1)+ 
3 


SREG1O. LASTWC 
PC, FINADR 
FINCYL, RO 
Haste 
PC, BDSRCK 


#BADSEC , RECODE 


SCRACH 
UBMPRS 
4 


5: lac 
SREG7 , F INSEC 


NCYL, SREGS 
INTRK, SREGS 
jHseC, SRG? 


PMA+2, $REG13 
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COMPARE DATA WORD TO PATTERN WORD 
: im) Ag DATA cBRESRES Ok 

sD T DATA HEADER FOR MSG 
‘ADJUST ERROR DATA WORD COUNT 


GET WORD NO. 

sGET 2’S COMP OF WORD NO. 
:COMPUTE ACTUAL PACK ADRS 
:SAVE RO-RS 

sGET CYL 

*GET SECTOR 

*SEE IF THIS SECTOR LISTED BAD 
*RESTORE RO-RS 

;BR_IF LISTED- DON’T REPORT ERROR 
:C THE ERR 

*BR IF THIS IS NOT FIRST ERROR 

*SEE IF UNIBUS MAP PRESENT 


'GET CURRENT MAP REG 0 
SDATA MISCOMPARE (11/70) 


;TYPE HEADING FOR ERROR MSG 
;INIT CYL NO. 


ORT ER SRe CHOULD BE REPORTED 
: Bee 1} REPORT fcr RS HORS 

SEE IF 10(DEC) ERRORS YET 
“BR IF ERROR LIMIT EXCEEDED 
SEE IF DIFFERENT CYL 


iSEE F DIFFERENT TRACK 
*SEE IF DIFFERENT SECTOR 
*BR IF SAME $s 
SET NEW PACK ADRS FOR PRINTOUT 


;TYPE NEW PACK ADDRESS . 
T WORD NO 


GE , 
;GET GOOD DATA 
;GET Bre ATA 
TE PHYSICAL ADDRESS 


sC 
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DZRENB. CNB CMPBUF = SOFTWARE COMPARE DATA 


8163 O3S54S4 010137 001214 MOV R1,$REGIS :GET VIRT. ADRS FOR PRINTOUT 
035460 162737 000002 001214 sus te, , SREGIS TYPE oy 
be Bes £92063 000100 143442 BgF RB ITS, ASHR : SEE 1°99? BRR OR" of bul’ BE PBS oR TED 
035476 001020 BNE cus iB IF JUST 1 ERROR SHOULD BE REPORTED 
pos a2 005536 sos: TST PATRN E IF DEFAULT DATA TEST 
4 SEQ 40$ Y 
935506 005737 oS6216 TST SKT11 i IF MEM MGT PRESENT 
035S5i2 100002 BPL 4O$ ?BR IF NOT PRESENT 
035514 000137 035050 IMP 253 *GO HANDLE MEM MGT 
gos 302 40$: DEC Re *DECREMENT WORD COUNTER 
35522 1406 BEQ S4$ *BR IF ALL DONE 
035524 005304 DEC RY ;DECREMENT PA TTERN WORD COUNT 
G35528 001 BNE 53$ *BR IF NOT DONE WITH PATTERN YET 
000137 035106 IMP 30$ ; JUMP TO REPEAT THE PATTERN 
000137 035112 53$: IMP 34$ 
056216 Sus: SKT11 ;SEE_IF MEM MGT PRESENT 


:BR_IF NOT na od 
035546 900001 177572 #81TO,d#SRO ; DISABLE MEM 
035554 005726 : 56S: TST (SP)+ ;P 


OP THE STACK 
035556 104407 RESREG RESTORE RO-RS 
035560 000207 RTS PC ;RETURN 


8 prTLOUT = THIS SUBROUTINE CHECKS FOR (?C) OR (f2) TTY INPUT 
:& C - THIS SUBROUTINE CHECKS FOR (1C) OR (42) TTY INPUT. 
ae ete WAS TYPED THE SUBROUTINE RETURNS TO DRVTST. IF (42) 

+ YPED TINE RETURNS TO INPUTP. IN EITHER CASE, 

:#A RESET INSTRUCTION IS EXECUTED, AND THE STACK IS RE-INIT- 

SIAL ZED. TF THERE IS NO INPUT, OR INPUT OTHER THAN (fC) OR (2), 


TAKEN. 
3% CALL - JSR PC, CTLOUT 
3 OR -  CKEXIT 
5 SESE SESE SEE SE SAE SEE HEE SESE HE ESE SE RSE AEH EAE REAR EEE EEE EEE EEE HERES 


go. peop co goa eng en en em em em em em em ENED EN oo sO_R gO gD gO ;D eM coc en eoLD gO 
BEGRARLGSLESSEREOSIS NALIN SSS GES e 
o 
= 





o3ssee 122737 00001 003110 CLOUT: CMPB #1, TSTING sSEE IF CURRENTLY RUNNING TESTS 
001077 1 BR IF NOT RUNNING TESTS 

8200 035572 005737 oosse4 TST — INTCHR :SEE_IF ANY TTY INPUT 

8201 001474 BEQ Sid :BR IF 

8202 025400 105737 003106 TSTB © MOFLAG ;SEE IF DEFAULT MODE RUN 

8203 OO1446 BEQ ;BR_IF YES 

Beo4 122737 00003 o05s524 CNPB 8003, INTCHR  §;SEE_IF TYPED 

8205 035614 001033 BNE iBR_IF NOT (tC) 

Bede Gable 012700 o14sen MOV  #DRVTST,RO ;SET RETURN ADDR = DRVTST 

8207 O35bee 1 003124 2s: STB :SEE_IF XXOP CURRENTLY OVERLAID 

Bede O3sbeb O01Ge BEQsOGS BR IF NOT 

8209 025630 004737 030502 JSR. PC, GETXDP sRESTORE SAVED XXDP, IF NECESSARY 

8210 025634 000005 6$: RESET sRESET ALL DEVICES 
| Belt O3b635 008037 CLR —sINTCHR CLEAR TTY CHAR BUFFER WORD 
| Bel2 35642 005037 001304 CR §TIMES CLEAR THE I 

Bets Osebag 105037 CLRB XDPSVD CLEAR THE XXDP SAVED FLAG 

Bel4 12737 O4e410 003036 MOV § #ERRHDL,A.ABNL ;RESTORE ERROR HANDLER ADDRESS raf 

Ig Gee TENE BAIT cooonn = ve eta Fomocns\ SEE Wea fi 
| 8217 Baeere Ons? ONO? JSR C,ORVCAL ;D0 CLEANUP RECAL IBRATE — 
| Bele 035676 o0s037 O01102 cer = Stétnm ;CLEAR THE TEST NO 
| 
| 


nr en + ee —2-- = - . - os 
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OZRENB. CNB RNPBUPCe CSE COMPARE DATA 
8219 035702 000110 JMP JRO -EXIT FROM TESTS 
8220 035704 lee737 o00032 o0sse4 4s: CMPB #032, INTCHR ‘SEE IF (12) TYPED 
8221 035712 001016 BNE 75 BR IF NOT 
8222 g35714 012700 016120 MOV #INPUTP, RO SET RETURN ADDR = INPUTP 
8223 BR § : TAKE 
035722 122737 000003 O0S524 12$:  CMPB #003, INTCHR ‘SEE IF (#C) TYPED 
035730 901007 NE 7$ ;BR NOT 
035732 104400 O07646 TYPE  ,HLTROD *TYPE “HALT REQUESTED” 
B22e7 035736 104400 007616 TYPE  ‘CNTRDY TYPE “PRESS CONT WHEN RDY” 
035742 012700 o44420 MOV HHL TPRG, RO *SET HALT ADDRESS 
8229 035746 o007es BR 2 :TAKE EXIT 
8230 035750 122737 O00007 O0SSe4 75: CMPB =: #007, INTCHR *SEE IF (16) TYPED 
8231 035756 001002 BNE 8$ *BR IF NOT (4G) 
32 0325760 004737 027562 JSR FC GTSURG “OPEN SOFTWARE SWR FOR MODIFICATION 
8233 635764 004737 027250 8S: JSR C} PREPKB *ENABLE KBD INPUT AGAIN 
B34 035770 000207 10$: RTS Be? * RETURN 
e539 
8238 s LIRTSEC © WRITE A BLOCK OF M00(OCT) HORDS ONTO Dick AND PERFORM 
8239 4WRTSEC - WRITE A BLOCK OF 400( 
2#A WRITE “CHECK. PARAMETER BLOCK MUST BE PRE-LOADED WITH PACK 
Boul isiepe DATA WORD IS PASSED IN R3 ON ENTRY. RWEUF IS THE BUFFER 
tabs BEBE HHH HEHEHE HEHE OHHH BEEBE BE 
Be44 035772 104406 liRTSEc: SAVREG ;SAVE RO-RS 
8245 sLOAD THE R/W BUFFER WITH DATA 
Bob 035774 012700 064574 MOV #RWBUF RO ;BUFFER ADDRESS 
8247 936000 O12701 oo0400 MOV #400, RI *4O0(OCT) WORDS 
8248 036004 010320 4g: MOV R3, (RO)+ ‘LOAD A BUFFER WORD 
8249 036005 005301 DEC R1 ipece COUNTER 
8250 036010 001375 BNE ug BR IF NOT DONE YET 
8251 ;SET UP PARAMETERS 
8252 036012 012765 064574 000010 MOV #RWBUF .P. nape «SET BUS ADDRESS 
8253 036020 012765 177400 oo0Dle MOV #-400,P.WC(RS) ;SET WORD COUNT 
8254 ;WRITE THE DATA 
8255 936026 112765 009123 o00001 MOVB #HRDATA,P grnocns) -SET WRITE COMMAND 
8255 036034 O32 000002 143076 BIT #BIT1, ISWR SEE IF WRITES SNHIRT TED 
8257 O36042 001002 BNE 
8258 036044 004737 O40716 JSR PC, DRVCAL feu THE DATA 
8259 -PERFORM WRITE CHECK 
8260 036050 112765 000131 oo0001 6S: MOVB  &WRTCHK.P.CMND(RS) ;SET WRITE CHECK COMMAND 
| 8261 036056 004737 O40716 JSR PC, DRVCAL >PERFORM WRITE CHECK 
Bebe O360b2 104407 RESREG "RESTORE RO-RS 
| 8263 036064 000207 RTS PC *RET 
8264 
| Bee 
6267 . pROMEML ~ LOAD MEMORY ITH INCREASING NUMBERS STARTING WITH 1 
| B268 ; #LD 0 Y WITH INCREASI RS, START 
| 8269 SSCDNENE = LOAD MEMORY WITH REPEATED WORD, IN RQ ON ENTRY. 
| B270 sso SUBROUTINES REQUIRE MEMORY ADDRESS IN PMA, PMA+2, AND WORD COUNT 
8272 Tt lea +7 
| 8273 O36066 104406 taMEM REG SAVE RO- 
| 8274 036070 oosoo4 aR RY *R4=0 INDICATES LDMEML 
| 
{ 





a 


Hat tat at att at ap a a 
2 b= bb 0 he 
0 NOU £ wre 


ogee 


RISER 
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OZRENB. CMB CMPBUF - SOFTWARE COMPARE DATA | 
036072 012703 000001 MOV #1,R3 sINIT DATA WORD TO 1 
peat 0004 BR LOMO : PROCEED 
1044 LOMEM2: SAVREG SAVE RO-RS 
012704 177777 MOV R4=177777_ INDICATES LOMEM2 
O36 105 ol 005564 LOMO: MOV WosteR, R2 *GET NO. OF WORDS 
ll2 013701 005604 MOV PMA : M ADRS 
036116 905737 OS6216 TST stii SEE IF MEM MGT 
036122 100012 BPL 6S :B 
036124 042701 160000 BIC #160000, Rt “FORCE RELOCATION THRU PARG 
03613C OS2701 140000 BIS #140000'R1 
036134 013737 003200 172354 MOV SAVPAR, J#KIPARG ; INIT PARS 
036142 052737 000001 177572 BIS ary a#SRO > TURN ON MEM MGT 
036150 010321 6$: MOV (RAS + ;LOAD A WORD INTO BUFFE 
036152 04 TST *SEE WHICH DATA DESIRED 
036154 001001 BNE ey ‘BR IF NOT INCREMENT ING DATA 
036156 005203 INC R3 INCREMENT THE DATA 
036160 005737 oS6216 8$: TST SKT11 ; SEE F MEM MG 
036164 100010 BPL l N 
036165 ° O3e701 920000 BIT #81T13,R1 :SEE F nOVERELON TO NEXT PAGE 
036172 O14 BEQ 10$ OVERFLOW 
036174 062737 000200 172354 ADD #200, J#KIPARS i TNCR PAR BY 4K FOR NEW PAGE 
036202 042701 O20000 BIC #81713,R1 *SET PAGE = & AGAIN 
035205 10$: DEC Re :DECREMENT COUNTER 
036210 001357 BNE 6$ *BR IF NOT DONE LOADING YET 
O3S2l2 005737 OSb216 TST SKT11 ; SEE IF MEM MGT 
036216 1 BPL 12$ :B 
036220 042737 000001 17757e BIC #B1TO, d¥SRO ‘TURN OFF MEM MGT 
036226 104407 12$:  RESREG “RESTORE RO-RS 
036230 07 RTS PC + RETURN 
s © SKA KALA KARA ALK AA LAAAL AAAS AREAS REAR REA SEA ALEKS RE EHALHRKAEEKE 
>&CKMEM1 = PERFORM SOF THARE COMPARE OF MEMORY, WITH INCREASING 
HN UMBERS, STARTING WITH 
58K Nee PERE ORM SOF THARE COMPARE OF MEMORY, WITH REPEATED DATA WORD 
HaeoTH SUBROUTINES REQUIRE MEM ADRS IN PMA, PMA+2, AND WORD COUNT MUST BE 
RHEE EEE HEEHBE HEHEHE HEHEHE EEE ee ate tat 
036232 104406 KMEML: SAVREG SAVE RO-RS 
036234 OOSOO4 CL *R4=0 INDICATES CKMEML 
036236 012703 ooc001 MOV #1,R3 INIT DATA TO 1 
036242 O000403 BR CKMO : PROCEED 
036244 104406 CKMEM2: SAVREG SAVE RO-RS 
0326245 012704 1 MOV #-1,R4 *R4=177777 INDICATES CKMEM2 
026252 013702 O0SS64 CKMO: MOV WOSXFR, R2 GET NO. OF WORDS 
036256 013701 MOV PMA, RI GET MEM ADRS 
026262 005037 005534 CLR SCRACH , 
036266 112737 OO0O4O 063113 MOVB § #40,0H701+38. ;RESTORE ERROR MSG PARAMS 
036274 012737 O64466 MOV #7, DFeS+2 
036302 004737 042130 ISR PC’ REPSUP ;STORE PREV CMND FOR POSS. PRINT 
036306 005737 16 TST SKT1I ; SEE IF MEM MGT 
036312 100012 BPL N 
036314 O4270i 160000 BIC #160000,R1 t FORCE RELOCATION THRU PARS 
036320 052701 140000 BIS #140000/R1 
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003200 
000001 


001202 
00SS64 
001202 
034250 
O0SS66 


040612 
001000 
056216 


063113 
000005 


172354 
005534 


003134 


COS26e2 
005260 


OOSSE6 
005570 
005571 
001202 
001204 
177776 
001202 
001210 





BEQ 1 
spect * pau HANDLER 








coven OK IPARE s INIT oy 
ae ; TURN ON 


0, a¥SRO 
Ra, (R Ri)+ 


WOSXFR, SREG1O 
a dle 


FINCYL,RO 
FINTRK,RI1 
FINSEC, R2 

C, BDSRCK 
BBADSEC, , RECODE 
SKT11 
$ 


DH701+38. 
#5, DFeS+2 


OSKIPARG, SREGIE ; 
SCRACH 

10$ 
a 


PHO, SREGS 
EMPL D $REGE 

















$ 
SCRACH 
#B1TO, JSWR 


#10. ,SCRACH 
fog eM. 
a ee 
Fogo’ oF USEC 
FINCYL, SREGS 

TRK, SREGS 
FINSEC, SREG? 


— ANN —-w— Me WH es 
— 4404 0 2) 20 
m2zz 


~2(R1), $REGI2 
SREGIO, SREGLY 
SREG13 
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WOR 
BR IF DATA COMPARES OK 


GET 2’S COMP OF WORD NO. 
s COMPUTE PUA, PACK ADRS 


:GET SECTOR 

BEE IF THIS SECTOR LISTED BAD 
28 IF LISTED- DON’T REPORT ERROR 
i> E IF MEM MGT. 


ADJUST DATA HEADER FOR MSG 
ADJ. ERROR DATA WORD COUNT 


;SET PAR FOR PRINTOUT 

; SEE IF FIRST re, mn THIS BLOCK 
;BR IF FIRST ERR 

UNIBUS MAP PRESENT 


N 
1 ee UB MAP REG 0 
;DATA MISCOMPARE (11/70) 


SINT HEADING FOR ERROR MSG 
IT CYL NO. 


; INCREMENT THE ERROR COUNT 
SEE _IF ALL ERRORS SHOULD BE REPORTED 
BR TO REPORT ALL ERROR 

;SEE_IF 10(DEC) ERRORS YET 

BR IF ERROR LIMIT EXCEEDED 

;SEE ee CYL 

iSEE IF DIFFERENT TRACK 

CEE IF DIFFERENT SECTOR 

BR IF SAME PA 


RESS 
;SET NEW PACK ADR FOR PRINTOUT 


i TYPE NEW PACK ADRS 
;GET 7. - NO. 


‘BAD Dat a 
;COMPUTE PHYSICAL ADDRESS 
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ROL $REG14 
$REG13 

ADD PMA, SREG14 

ADS) Pete REGIS 











MOV R1, $REGIS ;GET VIRT ADRS FOR PRINTOUT 
SUB te, SREGIE 
ERROR 63. :TYPE GOOD AND BAD DATA 
BIT #BIT6, ISWR :SEE IF JUST 1 ERROR SHOULD BE REPORTED 
BNE 1 :BR IF JUST 1 
jPROCEED. WITH COMPARISONS 
16S: RY ;SEE WHICH DATA DESIRED 
SRE 18$ *BR IF NOT INCREASING DATA 
INC R3 INCREMENT THE- DATA WORD 
18S: Ist SKTLL iSEE IF 
BIT #81T13,R1 SEE IF OVERFLOW TO NEXT PAGE 
BEQ 20$ :BR IF NO OVERFLOW 
ADD #200, 08KIPAR6 :INCR. PAR BY 4K FOR NEW PAGE 
BIC #81T13,R1 SET PAGE = 6 AGAIN 
20$: DEC Re ;DECR_ COUNTE 
BEQ 21$ R IF DONE COMPARING 
- IMP 6S : CONTINUE COMPARING WORDS 
218: TST SKT11 :SEE IF MEM MGT PRESENT 





ees :BR_IF NOT 
B #BITO, d#SRO TURN OFF MEM MGT 

ees: RESREG ; RESTORE RO-RS 
RTS PC ;RETURN 


$ © SHLSKEAA KALE HAL KASL EA ALEE LER ELE AA HKEL EKA AEA KE EKER REAR EER AKEKEE 
:&SETUPM - SUBROUTINE TO INI} PARAMS FOR NPR/MEMORY TESTS. 
mmo Cia ae 
&tTUPM: MOV FC,P.CYLN(RS)  ;SET 
MOVB :SET Crk roR 


S;P.SECT(RS) 
MOVB FT,P.TRCK(R5)  ;SET TRACK 


chp FC, #624 aBEE IF att SHOULD BE SCALED DOWN 
MOV #624,P.CYLN(RS) ;SCALE DOWN THE CYLINDER 

2s: MOV sRWBUF, MA :GET MEMORY ADDRESS 
STB aut ; SEE IF LOADED BY XXDP 
ADD #6000, MA SLEAVE ROOM TO SAVE XXDP 


4$: BIC 43777, MA 
ADD | #4000, MA 
MA+2 


RTS PC ;RETURN 


A Uae 
ih REFNEM = THIS SUBROUTINE PERFORMS A SUBSYSTEM COMM LE 
; *REPEATEDLY REFERENCING A NON-EXISTENT MEMORY LOCAT TON N t760000) 
ate pone FOR THE PURPOSE OF CAUSING UNIBUS CONT ENTION DURING DISK 








pee NUE 
RES ERBS PAROS CRS 
abe 


194111 
oa 
009761 : 
seer 
000207 
B47 
&4 
4 
es 
gir Gress Goeoul 
8477 916500 
8478 037640 001002 
pate O37e42 005201 
Bel O37e4e QosM0d 
gies 037250 eich 
8484 037254 Boe101 
BY8S 037256 
6486 O037e6e 005537 
8487 037266 060137— 
8488 037272 104407 
8489 037274 000207 
8490 : 
6491 
8492 
8493 
434 
8495 
B46 
8497 037276 
6498 037276 004737 


me me ee 





160000 


occcle 


030726 


FICATION 
OMPRFE Data 
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FOL DRIVER PARAMETERS LINCLUDING THE COMMAND) MUST BE set IN THE 
MRAMETER BLOCK ON ENTRY, AND RO MUST CONTAIN THE TIMING CONSTAN 


- 
NT 


I 
toe SAT THE FREQUENCY OF NEM REFERENCES, WHILE “Meitine F G FOR 
i[seganesessoossossecesvosssosssassnssossensessssonssonessstanees 


JSR PC, CTLOUT sCHECK FOR (10) OR (12) KBD INPUT 
CLRE = DONE ; CLEAR THE DONE FL 
ISR S STROM ig! ORE apne CURRENT COMMANDS 
MOV P aRaM BLK BODFESS 
MOV a28s, QHERRVEC ier "og VECTOR ADDRESS 
ISR PC,C.INI :Chal OR 
ck PE W.MTCH © CALL MATCH DOG 
735 DONE BONE. Set 
26S Be IF Ss. 
MOV R2.R4 :GET COPY OF R3 
SEQ 12$ ‘BR IF TIMER = 0 j 
108: 6 RY :DECREMENT TIMER 
eNe 10$ “BR IF NOT DONE TIMING 
128: fs 38160900 ;REFERENCE NON-EXISTENT MEMORY 
ERROR il :"NO NEM WHEN EXPECTED 
205: CMP (SP)+, (SP)¢ sRESTORE THE STACK 
225: &R 6S KEEP WAITING FOR COMMAND COMPLETION 
26s: Moy 86, SHERRVEC ?RESTORE TIME-OUT VECTOR 


. LINC © INCREFENT MA BY WORD CONT INP ie) 
> #INCRMA - INCREMENT MA BY WORD N P.WCé 
ieuseensesneeuseneessoonessseouieascegseniensseatesstenseeoseens 
tACRMA: SAVREG ;SAVE RO-RS 
ar RI 
MOV P.WC(RS),RO GET } COUNT 
BNE 43 >BR IF NOT 65,S36(DEC) 
INC R1 :SET HI BIT 
ae 6$ : CONTINUE 
4$; NEG RO *GET TRUE WORD COUN 
6$: coe % :DOUSLE THE WORD SOUNT TO GET BYTES 
ROL Ri 
ADD ROMA sADD IT TO COMPUTE NEW MA 
ADC Mate 
ADD R1,MAte 
RESREG sRESTORE RO-RS 
RTS PC RETURN 
Te en ge nt tg et ee ae ee te a re tpt gn on i 
ene ay <hr FACTORY BSF INTO BSFACT, AND READ SOFTWARE BSF 


s SHSERESEES SELLLSEEELALELELSELAALELAALLLRALLALELLLLLRASELLRAALEAEE 


" JSR PC, INITSS sINIT THE S.S. 


+ & 20 » = 6 6+ » + 6-2 pe 


WDNWUT£ WTO 


: mummuanans 2 


! 


tals 
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ey) CMPBUF = SOFTWARE COMPARE DATA 
ete ee eet eee Ce ee 
é ow 2 
4 O1e76 33 pote MOV sae Pe YiN Re) >SEt CYL = 63e 
i EE 000 MOVB &2.P-TRCK(RS)  ;SET TRACK = : 
2 l l MOV #10. R3 :SET FACTORY SSF SECTOR LIMIT 
037334 1 ll TSTB FORMAT 
. 901 BEQ 6$ ;BR IF 22 SECTORS : 
- 1 oocoo4 INC F .SECT(RS) SET STARTING FACTORY BSF SECTOR NO. 
9127 477400 googie 68: MOV #-400,P.WC(RS) ;SET WORD COUNT FOR 1 SECTOR 
01 00001 MOV S8SFACT,P.BALO(RS) ;SET BA FOR FACTORY SSF 
037364 01 037540 95032036 &s: MOV SBD0SCHD‘A.ABNL ;SET ERROR HANDLER FOR BSF READ 
pSrace Apaeay DastiG FER” PE CDRUCAL ED THE FRCTORY BSF 
Caraoe 13 003131 Té7g 40 WCEFLG CEE F ANY ERRORS 
1413 BEG 128 :BR I 
037410 bbe76s oo0092 000004 ADD 82,P.SECT(RS)  :CHECK NEXT SECTOR 
baeie ie po0c04 CMPB4Osé«CSECT(RS),R3 SEE IF LIMIT EXCEEDED YET 
22 001360 BNE $ *BR IF NOT YET 
037424 004737 042130 10$: JSR PC REPSUP ‘GA STATUS FOR PRINTOUT 
Bard 104120 ERROR 120 *ABORTING- BAD BSF READ 
32 000137 o44420 INP HLTPRG *HALT= CAN'T PROCEED 
027436 Ole76S 003224 O00010 123: Mov #ESSOFT.P.BALO(RS) -SET BA FOR SOFTWARE RECORD 
037444 110365 00004 MOVE 3 P.SECT(RS) get STARTING SECTOR NO. 
game) 012703 o00026 MOV #22. :SET 22 SECTOR LIMIT 
105727 003115 TSTB = FORMAT ;SEE IF 22 SECTOR FORMAT 
037460 901 . BEQ 14 ‘BR IF YES 
037462 Ol 000023 MOV #19. .R3 “SET 20 SECTOR LIMIT 
937466 012737 037540 OO3036 148: MOV s80SCHD,A.ABNL ;SET ERROR HANDLER FOR BSF READ 
037474 105037 003131 CLRB 4sCOWCEFLG” sINIT THE ERROR FLAG 
037500 004737 O40716 JSR PC, DRVCAL "READ THE SOFTWARE BSF 
108737 003131 TS’B 23s WCEFLG :SEE IF ANY ERRORS 
10 601407 BEQ 165 *BR IF NOT 
037512 062765 oo0002 cpo0c4 ADD 82,P.SECT(RS) | ;CHECK NEXT SECTOR 
037520 126503 Oc0004 CMpB 46sé SECT(RS),R3 SEE IF LIMIT EXCEEDED YET 
037524 003760 BLE 145 :BR IF NOT YET 
037526 000736 BR 10$ *REPORT ERROR AND ABORT 
037530 012737 O42410 003036 168: MOV SERRHDL,A.ABNL RESTORE ERROR HANDLER ADRS 
037536 000207 RTS PC * RETURN 
;#THIS IS THE ABNORMAL DRIVER RETURN WHICH IS USED TO HANDLE 
*#POSSIBLE ERRORS IN READING BAD SECTORS. 
927540 032765 130600 000034 &DSCHD: BIT HVRC!DTE! OPI'OCK.P.ER(RS) ;SEE IF ANY READ ERRORS 
001902 BNE $ sBR IF A READ ERROR OCCURRED 
037550 000137 o42e410 IMP :GO HANDLE OTHER ERROR 
037554 195237 003131 4§: INCB wWCEFLG SET ERROR FLAG 
037560 000137 o4 IMP T :TAKE NORMAL DRIVER RETURN 


tL TYPRer TYPE FACTORY AND SOFTWARE BAD SECTOR FILES (pera) 


; ° AND 
*#WITH THE CYLINDER, TRACK, AND SECTOR NO. OF EACH BAD 
SEPARATELY, IN A TABLE OF OCTAL VALUES, FOR EACH OF THE 


;#LISTED 
14 


SECTOR 


TTT iii titi tiiiitiiiiiiiititiiititttiiititt tities! 





~ 


. 


UBSYST 


2 
4 
» 
w 
¥ 
az 
> 
oa 
o~ 


a 


£ 


~ 


mn ¢ 
BS 


R 


ce 


2 
[=] 
| ol 


aie 


é 


8 
8 


: 


8 
S 


SSURRC ORC RES MRE ER BOAR B RE Io oadson oben TER 


panama cae 


aN 


sauaas 


s 


g 
Oo 





- SUF 


01342! 
001315 


000176 


003234 
011233 


FYuaRe 


TYPBSF: SHVREG 
CLR 








1S 
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a1 HAGE Cie? coun 
SESFACT#+10,RG ist ae nplceTge BSF 
FACTES 


» BOSECT TYPE “BRO ae ORS” 

+ EO ‘TYPE “CYLNDR TRACK SECTOR” 
RO) ;SEE IF @ SECTOR LISTED HERE 
at :BR IF YES 

R1 :SEE IF FILE IS EMPTY 

14S BR IF NOT EMPTY 

,NOFALS “NONE™ 

i SCRLF TYPE (CR, <LF> 

(RO}+,-(SP) ;GET A cy NO. 

SPACE2 ; TYPE SEPARATORS 

Ro), + eee, :GET TRACK AND SECTOR 

B3 ;GET THE TRACK NO. 

;TYPE IT 
SPACE2 TYPE SEPARATORS 
{80 ;GET SECTOR NO. 
;TYPE IT 

SCRLF 

tRO)+ sINCR THE POINTER 

R1 :INCR THE COUNTER 

R1, #126. -SEE IF LIMIT REACHED IN THIS FILE 
<3 *BR IF NO 
RY :SEE IF BOTH FILES TYPED YET 
18$ *BR IF NOT YET 
RY :SET INDICATOR FOR SOFT. FILE 
#8SSOFT+10,R0 Nee OF DATA IN SOFTWARE BSF 
SOF TBS ;TYPE “SOFTWARE BAD SECTORS : 
3 GO TYPE SOFT. BSF 
= RESTORE RO-RS 


HIFTNMEN —" COMPUTE’ NO. OF WORDS XEERRED ON PARTIAL XFER 


AND STORE IT 


jfuaretaarataaneevanenessshesenatesnsetanteeanieeoiartsaasnsanas 


;SAVE RO-RS 
P.CYLN(RS),RO  ;GET ORIG. CYL NO. 
P.TRCK(RS),R1  ;GET_ TRACK NO. 

P.SECT(RS) ,Re ; SECTOR NO. 

R3 OUNT TO 0 
P.OCYL(RS) ,RO : COMPARE ORIG. AND CURRENT CYLS 


P.OTS+1(RS),Rl 
8s 
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D2RENB. EMPBUP OS Sor TARE $ 





RENS. CMB ComBaARE DATA 
861 oo0026 CMPB sé DTS(RS),R2 : COMP C 
grid Gacoce betaog sores TF SORE PRE EQUAL 
8613 0O4 oose03 QS: INC R3 fi: SECTOR COUNT 
3614 p04? 37 o4o022 JSR PC, INCRSC K ADRS BY 1 SECTOR 
8615 BR 6§ "GO COMPARE ADDRESSE 
518 40010 909303 128: SWAB R3 : COMPUT 70. OF WORDS XFERRED 
861 le 910237 oosse4 MOV R3,WOSXFR : STORE 
8518 O40C16 104407 RESREG ; RESTORE TRO-RS 
8619 O40020 O00207 RTS |. ce RETURN 
Bee 
8623 LINGRSC = INCREMENT PACK AODRESS 10 NEXT SECTOR eee 
3524 HAINCRSC - INCREMENT PACK ADDRESS TO NEXT SECTOR 
8625 #THE gg tL INOER IS PASSED AND RETURNED IN Ro TRACK IN R1, AND SECTOR 
Pas P 00 ' tree: MOV 21 RY SET SECTOR LIMIT. 
Sel. 
ese ieee il rete ee dant ise ie g stct6 TOR FORMAT 
8630 001402 BEQ ug 
8631 912704 000023 MOV #19. ,R4 ery SECTOR IMIT 
Boas ate 4$: iN R2 iT CTOR NO. 
é Re, RY SEE IF SECTOR LIMIT EXCEEDED 
8634 003407 BLE 6S :BR IF 
Bb O0500e CLR R2 SET SE oR s 
I INC RI SINCR. TRACK NO. 
8637 020127 ooccce CMP Rl, #2 :SEE IF TRACK LIMIT EXCEEDED 
| 8638 003402 BLE 6$ ‘BR IF NOT 
| 8639 005001 CLR RI :SET TRACK = 0 
' BEND 005200 INC RO ?INCR. CYLINDER NO. 
8641 000207 6S: RTS PC * RETURN 
| Beue 
| Seas 
| ESe5 iNIDKFR « NID-TRANSFER PARAMETER UPDATE SUBROUTINE 
| eae HAMIOXR — MIT att Net Rebs URIBUS MAP, P.BALOCRS), 
| BYR 2#P.BAHI(RS), pF rele 14 eh ION TO RESUME A TRANSFER 
| eH *TERMINATED BY A SECTOR ERROR 
i e650 ect et A MR RE I, RT 
| 865) OQ4D066 104406 hioxFR: ;SAVE RO-RS 
| ges2 040070 O47 37 037736 JSR PC,FINNEN COMPUTE NO. OF WORDS XFERRED 
eeeg apt 00 ope Wenn MOVB BD Teel cee} Ru °GET fRAck NO. 
BESS OHO104 Si HOVE P.DTS(RS), Re sGET SECTOR att. = saat ieee 
i D400 . NCRSC MENT ADRS 
Byoli4 O100es DOuDDE HOV. ROTPYEYENCRS) SUPORTE’ CYLINDER 
| 658 o4O1ed 110165 00005 HOVE RL, P. TRCK (RS) ;UPOATE TRACK 
i Bae ae bt neath PER eS NB. cae WORDS XFERRED 
_ Bebl O4GLN Obe703 900400 ADD #400, R3 iSKIP BAD SECTOR 
Bees east ere RY’ ig tad Byres Xp XFERRED 
| B64 O40146 0061 ROL R3 
| 68665 O40150 006104 ROL RY 
| 2666 040152 060337 OOSeO4 ADD R3, PMA UPDATE PMA, PMA+2 
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BSR EN cng ENE ear Hane coneane Rata : : 
8667 O401S6 005537 O0Sé606 auc PMA+2 
bbb DvD Ibe 060437 005606 ADS RY. PMA+2 
0166 013765 OOS&O4 cOo0d10 MOV PMA,P.BALO(RS) ;UPDATE P.BALOCRS) 
B70 74 Ot MOV PMA+2.RO 
oe ae. 
86 1 BIS8 RO,P.BAHI(RS)  ;UPDATE P.BAHI(RS) 
8673 ay : 056216 Ist skfii SEE IF MEM MGT 
8675 16 iosKie 030300 ISR PC, PREPAR sUPDATE MEM MGT AND UNIBUS MAP 
B66 pudeee 1044 16S: RESREG j RESTORE RO-RS 
Bb RT PC : RETURN 
3 
peas 33 EVPRNG ~ SAVE INITIAL PARAMETERS FOR TRANGEER ee aeaee 
8683 tC TPRNE - Restore SAVED TRANSFER PARAMETERS 
e584 104406 a eee a cee Ge 
Sree pucsas btsrae oozEz2 ” MOV #PARMO+2, RO ADRS OF PARAMS 
8687 O40234 O1e701 o055Se MOV #SAVPRS. Al ADRS OF SAVE 
Bees Pipoae, | Baeas Wee 7 NEG Fncin), — shove ” POSttiVE 
8690 Bapses po3a35 peaeoy 00s604 MOV #RWBUF , PMA SONLT PHA’ 10-RUGLF 
8691 040260 005037 OOSE0S PMA+2 INIT PMAte TO O 
ees 040264 05/37 005536 TST PATRN ioe IF DEFAULT DATA TEST 
54 Banoee 013737 O0S600 O0S604 MOV :SET PMA=MA 
Ee Bug 300 013737 005602 O0SE0S Ho mat2, PMA+2 :SET PMA+2=MA+2 
| 8697 O40310 104406 GTPRMS: SAVREG ;SAVE RO 
Bees GMOSIE Io7OT paebes NOV oOSBARMGSE RL «= TADRE. OF PAREN 
8700 pyosee sees 006005 GTO: MOV r rs  SSET-FOR S WORDS 
| 8701 040326 012021 6$: HOV (RO)+, (RL)+ ;HOVE i: WORD ia 
| Boos Qaosse bOra76 BS :BR IF NOT YET 
| 8704 040334 104407 G *RESTORE RO-RS 
| 8705 040336 000207 RTS PC * RETURN 
8706 
| E08 
ges 3 LIRNGER ~ PERFORM A DATA TRANSFER AND HANDLE BAD SECTORS IF 
Bi  SENCOUNTERED, THE COMMAND MUST BE SET IN THE OEE RN BLK. THIS SuB- 
| 712 *#ROUTINE IS SUBSTITUTED FOR DRVCAL WHEN BAD SECTORS MUST BE HANDLE 
8713 © SELLALAARSRERSKLAA LALA RAESSSRELA LALLA RERRAAELARLEAAAR LASSE RAR AALE 
| 8714 G4O340 010446 : RY, -(SP) : R4Y ON STACK 
| 8715 O40342 005004 CLR RY *CLEAR BSE ERROR INDICATOR 
BB BES teres Bs, GP AEM, alr re ene ct : 
| Big 040362 001403 000108 005476” aa S$ pene sSEE IF ce ROR OCC 
| 8720 bvO3e4 112737 000001 003131 MOVB  #1.WCEFLG ‘SET WCE ERROR FLAG 
| 8781 032737 000002 O0S476 SS BIT #BSERR,RECODE ;SEE IF BSE ERROR OCCURRED . 
8722 O40400 001406 BEQ a§ BR IF NOT : 


' 
‘ 
























ge3 Mo 3 0 ine A MIDXFR sar BATE PARAS pare ra Reine XFER _ 
Bis nee BopoTe 13 PCRS) iePpn I ENTIRE XFER IS COMPLETED 
E BNE 4§ ‘BR IF _NOT 
6$: TS RY ‘SEE IF ANY BSE ERRORS OCCURRED 
1411 8$ ‘BR IF NOT 
040310 JSR PC, GTPRNS ; RESTORE ORIGINAL P PARAIS OF XFER 


SVPRMS .. RESTORE UDSKER, A+2 f 
SKTi1 i SEE Et ate MEM PRESENT 


pee 
Sore 


ars O404ee 


RR 
q 
: 
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87 
eras 040440 Pet 030300 ISR pe PREPAR p nen MGT AND U.M. 
en O4O444 012604 8S: MOV (SP)+, RY ie a 
o4o446 600207 RTS 
8736 
a 
g733 Tee ARCH BAD cECTOR Thelte ROUTIN 
8741 ;#THIS ROUTINE RE TURNS A LIST OF BAD SECTORS FOUND IN 
8743 ; #THE SPECIEIC TABLE BAD SECTOR SOFTWARE OR BAD SECTOR FACTORY) 
8743 :#FOR HE SPECIFIC CYLINDER AND TRACK DESIRED. RO AND Rl MUST 
era fe HECONTAI CYLINDER AND TRACK, RESPECTIVELY. 
Bre SSTHE LIST OF BAD SECTORS IS FOUND ON THE STACK WHEN THE ROUTINE 
ir ROIS of oust tRS ro Pon Ta ec hoes recat 
EPHG SEEKER HELE ELSLSERER A EERE EERE EERE EERE ERE SRE EBERLE RLEL ERE SSR AES 
8750 O4D4S0 010237 001266 dbutes: NOV Re, STNP2 
ae 
a ay pi oes2 Of 1550 MOV Res8] SfHPY -STORE RETURN CONTENTS OF RY 
| 8753 O4O4E4 011402 MOV (R4),R2 :GET ADDRESS OF BAD SECTOR TABLE TO SEARCH 
| ES BREE BE? BIBS cosas © Bh egbasnpy | SOETUP Fem Leno or i secon Trae 
| 8756 040500 905003 CLR me ;CLEAR R3 FOR COUNT 
8757 040502 O62702 000010 ADD #10,Re2 >SET Re FOR POINTER TO CYLINDER ENTRY 
8758 O040505 005712 1S: TST (Red i TEST Tite ALL ONES 
ee ae oie a 2 (Re) TES F CTOR IN PRESENT CYL 
| 8761 paper ati BEQ 3$° 3¥ ES Ir. CHE RK TRACE 
8762 040516 O62702 O00004 ADD #4,Re SETee BUMP POINTER 
| 8763 guOS¢e Se0237 001264 cH : *STMPL eet it IF OUT OF TABLE 
ere Diese 3 theres ea ee 3$ ae 134 : TRACK CHECK = PUT POINTER AT TRK/SEC BYTE 
876 il MOV (Re), STMP1O ‘GET TRK/SEC WORD 
| 8768 O4054O 042737 174377 001302 BIC #174377, STMP10 CLEAR ALL BUT TRACK : 
| 768 O40S4E iee70 C STMP10+1,R1 “CHECK IF BAD SECTOR IN THIS TRACK 
b4NSS2 O01 BEQ 4g : YES = GO PUT SECTOR NUMBER ON STACK 
| 8771 O40554 005722 TST (Re)+ ELSE BUMP POINTER TO NEXT CYL WORD 
| 5772 DOSS 000753 BR 1$ GO TEST NEXT CYL 
005203 4S: INC R3 *BUMP BAD SECTOR COUNT 
| 8774 O40562 O1 MOV (R2)+, (SP) *PUT TRK/SEC WORD ON STACK 
8775 O40564 O42716 177700 BIC #177700,(SP) | ;CLEAR ALL BUT SECTOR NUMBER 
| 8776 040570 000746 BR *GO CHEC OF 
| 777 O40572 010346 cs XIT 
| 8778 O40S74 013702 001266 
| 
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DZRENB. CMB SERRA BaD S COR Heat ROUTINE 
013703 009127 MOV $TMP3,R3 REGISTERS 
Boag BapeDS 013746 00127 MOV SNPS, (SP) “PUT RETURN ON STACK 
8781 049610 OO0204 RTS :R 
Hes s gree ae act ase eure rereeeueeenenereneeaes 
a8 :¥THIS RBUTIRE WILL SEARCH BOTH TABLES TO DETERMINE IF 
8785 ; FSPECIEIC SECTOR IS LISTED AS BAD. IF THE SECTOR IS f rereD IN THE 
8786 fou TINE SETS THE “BRDSEC™ FLAG AND RETURNS. IF THE SECTOR 
8787 ats raat FLAG 
8788 ~ RR BD a le ire 
8789 O40612 104405 BASRCK: SAVREG 
8799 040614 012737 OO4224 O40626 MOV SBSFACT, 1S ;SET TABLE TO SEARCH 
8791 O40622 004437 O404SO 2s: JSR RY, SRHTBS GO SEARCH IT 
8792 040626 900000 18: . WORD *TABLE ADDRESS GOES HE 
8793 O40630 012603 MOV (SP)+,R3 “GET NUMBER OF BAD SECT IF ANY 
8794 04 601015 BNE 6$ IF ANY, GO TEST WHICH ONE 
8795 040634 023727 O40626 003224 75: CMP 1$, #BSSOFT ;ELSE TEST IF OTHER TABLE ALREADY SEARCHED 
B73 040642 ols BEQ 33 IF YES-EXI 
44 012737 003224 O40626 MOV #BSSOFT, 1S *SET OTHER TABLE FOR SEARCH 
8798 S2 000763 BR 2s GO SEARCH IT 
8799 042737 001000 cOSH76 3S: BIC #BADSEC,RECODE ;CLEAR BAD SECTOR BIT 
8800 O40b62 1 4g: RESREG 
8801 O40664 000207 RTS PC ; RETURN 
gsc 022602 6S: CMP (SP)+,Re ; THIS SECTOR IN TABLE? 
8803 Mesa 001403 BEQ 3 ;YES-GO Se SET BIT 8 EXIT 
BB04 040672 005303 DEC R3 BAD SECTOR COUNT 
| 8805 O40674 001374 BNE 6S IF NOT Te OER Ee K NEXT ENTRY 
B80 040676 000756 BR 7§ ELSE GO SEARCH OTHER TABLE 
| Maa 052737 001000 o0S476 83: BIS #BADSEC,RECODE SET BAD 
' 8808 040706 005303 9g: DEC R3 :CLEAR STACK OF OTHER BAD SECTOR 
8809 040710 001764 BEQ 4g : NUMBER 
®810 O40712 005726 doc TST (SP)+ 
' §811 040714 000774 BR 9 sEXIT 
88le 
ay 
| Bele : iT, CALL ORIVER RQUTINE 
| 881? ENTRY JSR PC, DRVCAL 
8818 2% WITH RS POINTING TO PARAMETER BLOCK 
| 8819 j HRETURN RTS PC 
| BES BS SSTHIS ROUTINE IS USED TO INITIATE A SUBSYSTEM OPERATION BY 
| 8822 CALLING THE DRIVER. TER K MUST BE SET UP 
| BB23 :#BY AND RS MUST POINT, POINT To THE PARAMETE 
| Bee ; #BLOCK WHEN THE ROUT 
’ 
THIS ROUT ITs F FOR T OPERATION TO BE COMPLETED. 
| ess i SUHILE HAITING THE WA TIMER IS CALLED TO PREVENT 
| 8828 “SILENT DEATH IN CASE THe SUBSYSTEN DOES. OT PROVIDE AN 
| 8829 j XINTERRUPT.. THE INATION HANDLER ROUTINES WILL SET THE DONE 
| 9830 ;#FLAG WHICH KEYS THE ROUTINE TO RETURN TO THE CALLER. 
| 8831 KEELE KEES KEELE ERAS KLE LFA ASF HARK ES SZ LERLE KL AKERS RE RHR A ERAS RSE 
| 8832 O4O716 BAVCAL: 
| 833 040716 004737 033762 JSR PC, STALL ;PERFORM A STALL IF REQUIRED 


040722 004737 035562 > «SSR PC, CTLOUT CHECK FOR (#C) OR (#2) KBD INPUT 








cr 
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DZR6NB. CMB CALL DRIVER ROUTINE 
8835 O04 105037 003113 CLRB DONE sCLEAR DONE FLAG 
8836 Bya9S8 105037 003127 CLRB § ORNAFG ict LEAR DRIVE SIEZED BY OTHER PORT FLAG 
8837 040736 004737 041032 ISR PC, STRCMD :ST ORE PREV AND CURRENT COMMANDS 
guare O10 ? gy07Se MOV 4 iGET PARAM BLOCK ADDRESS 
737 051042 JSR PC, C. INIT CALL DRI 
8840 040752 4$: WORD :P.B. OR RECS GOES HERE 
8841 040754 904737 o4s4I12 63: ISR PC,W.WTCH “CALL WATCH DOG 
Be fie Mien os an a oe ol 
8844 BuOeee reg 003127 STB  ORNAFG -SEE IF DRIVE WAS SIEZED BY OTHER PORT 
See ee ihe be cle Be 
ga4 1 105037 ppsi23 €LRB - DRNAFG *CLEAR DRIVE NOT AVAIL FLAG 
8848 41004 010537 041014 MOV RS, 8S ;GET PARAMETER BLOCK ADDRESS 
8849 041010 004737 O5104e ISR PC;C. INIT *RE-ISSUE THE COMMAND 
g8so 041014 o00000 9$: WORD :P.B. ADDRESS GOES HERE 
8851 041016 004737 o4Ss412 10$: JSR PC,W.WTCH :CALL WATCH DOG 
B852 041022 105737 003113 TSTB = DONE :DONE SET ? 
041026 001773 BEQ 10$ *NO = LOOP 
BBo4 041030 000207 128: RTS PC : YES-RETURN 
ees 
eess $3 KELEKAEKALLER RELL ERA LAA ALLELE RHA KLARA LL LALA ALASKA LALLA LERA LEAL KEES 
9859 :4STRCMD - STORE PREVIOUS AND CURRENT SUBSYSTEM CO 
8860 © EKFEKELEAAEEARELARAAS KARL LEA RERE LE KALE LA LERA LEK EASA RARER EAEREEE 
B861 041032 104406 RCMD: SAVREG sSAVE RO-RS 
B862 041034 012701 oos224 MOV #PRVCMD, RI ADDR OF PREV COMMAND STORAGE 
B863 O41040 O12700 O0Se40 MOV #COMSTR, RO ADDR OF CURRENT COMMAND STORAGE 
8864 :STORE PREVIOUS COMMAND 
| 8865 oy1044 012021 MOV (RO)+ » (RL 
| 8866 O41045 012021 V (RO)+; (RI) 
| 8867 O410S0 Ol2e0el MOV (RO)+; (RL)+ 
8868 041052 Oie0el MOV (RO)+? (R1)+ 
8869 041054 O120e1 MOV (RO)+; (P1)4 
8870 O41056 Ole0el MOV (RO)+" (R1)+ 
8871 O41060 105737 003134 TSTB  — UBMPRS ;SEE_IF UNIBUS MAP PRESENT 
| 8872 O41064 001414 BEQ 4g, *BR IF NOT 
8873 O41066 Br a7a O0S262 005256 MOV CRMPHO,PRMPHO ;STORE PREV U.8. MAP REG O 
8874 041074 013737 005260 005254 MOV CRMPLO: PRMPLO 
8875 O41102 013737 170202 Oo05262 MOV J8MAPHOO,CRMNPHO ;STORE CURRENT U.8. MAP REG O 
8876 O41110 013737 170200 005260 MOV J#MAPLOO, CRMPLO 
8877 -STORE CURRENT C 
| 8878 041116 012701 oOoS240 4s: MOV #COMSTR,R1 
| B879 O41122 O1eSe1 MOV (RS)+, (RI)+ RS POINTS TO DRIVER PARAM BLK 
| B8B80 041124 O12521 MOV (R5)+; (R1)+ 
| 8881 O41126 012521 MOV (R5)+, (R1)+ 
| 8882 O41130 O1e5el ~ MOV (R5)+;(R1)¢ 
8883 O41132 OleSel MOV (R5)+;(Ri)+ a 
| g8g4 041134 O125e1 MOV (RS)+, (R1)+ 
| g88S 041136 104407 RESREG sRESTORE RO-RS 
| 888 041140 000207 RTS ~—s PC ;RETURN 
| 8887 és 
| 8888 
| cos H 5 REREELLREAAA REALE REALL LALA LALA ARAL AERA RELA LE RELA RELERRAREERA 22% 
| 
‘ 








QEREN-8 — RKBIL/RKOE. Su SYSTEM VERIE 
OZRENB. CNB DRIVE ERROR FREE RET 
8891 
8892 . 
8833 
834 
Se 
8897 O411N2 152737 000377 903113 
B898 041180 O3e737 100000 O0S476 
Bs00 GileG ods? O03116 
8901 O41164 000413 
8302 O41166 105737 003116 
8303 041172 001410 
B304 ONLI74 008037 OOLI7a 
8905 041200 113737 003116 001174 
8906 041206 104101 
8907 O41210 105037 003116 
8908 O41e14 005037 005476 
8909 O4l220 000207 
8310 
8911 
8912 
8913 
8914 
8915 
8916 
8917 
8318 
8919 
8920 041222 104405 
8921 O4lee4 105237 003120 
B3ee O41e30 O3e737 OO00H0 o05e72 
| 8924 041236 o01412 
| B925 041240 123727 003120 000024 
| 8905 041646 002406 
| see Ouisey fomag O1i077 
j 
B28 4180 Obig? O17%56 
8300 OuiebH Oae777 Oe0000 137646 
| Bae Buis74 00137 041700 
8933 041300 005000 
| 8934 041302 905005 
| B935 041304 005105 
| 8936 041305 113700 OO1114 
8937 041312 005300 
| 8338 O41314 006300 
8939 041316 006300 
| B3a0 O4i3e0 006300 
8941 041322 062700 001400 
| Bale Oulse O1e037 OHI3He 
Bau4 Bu 33 1 013405 
| $8945 O41340 104400 056640 
8346 041344 104400 
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OUTINE 


-SBTTL DRIVE ERROR FREE RETURN ROUTINE 

s*THIS ROUTINE IS CALLED BY THE tae WHEN NO ERROR 

#HAS BEEN DETECTED IN THE OPERA THE ROUTINE SETS THE 
HADONE FLAG THAT IS TESTED IN THE ‘DRIVER CALLING 


iSFRE. SIcB aay? DOME cet it DO Flag 
bbrRe: 8158 DONE sSET THE DONE F 
saNvOER. RECODE sTEST IF ANY pata ERROR 
SEQ F NO - DO ERROR RECOVERY PRINT TEST 
CLRB ERRCNT ‘CLEAR ERROR COUNT 
2s: TSTB —- ERRCNT CHECK K IF ANY ERRORS HAVE OCCURRED 
8EQ 1$ *NO - SKIP TO EXIT 
CLR SREGS 
MOVE ERRCNT,SREGS § ;GET RETRY COUNT 
ERROR 101 !PRINT RETRY SUCCESSFUL MESSAGE 
CLRB = ERRCNT :CL 


1$: ete ne :CLEAR RECOVERY FLAGS 
ee eT ll 
YPE ERROR ROUTINE 


“SETTLE 
NTRY ~ JSR PC, TYPE 
HERETURN - RTS = PC 


SSTHIS ROUTINE USES THE “ITEM CONTROL BYTE” (STEN) TO DETERMINE WHICH 
;*#ERROR IS TO BE REPORTED. IT THEN USES THE “ERROR TABLE” (SERRTB) 
Fg ie WHAT INFORMATION IS TO BE REPORTED CONCERNING 


111-1 jplad +--+} jaahhhabahaleaiadainialielaiaiaiaiaaialsialainiaiaiaiaiaiaininininiciaiaiaininiaiainiaininial 
+4PERR: SAVREG 


INCB RS sINCR ERROR COUNT FOR THIS DRIVE 
BIT #B1TS,CS ‘SEE IF DRIVE SHOULD BE ED 
; IF ERROR LIMIT EXCEEDED 

BEQ 93 "BR IF NOT 
CHP DRVERS, #20. SEE IF 20(DEC) ERRORS EXCEEDED 
CLRB = DRVERS CLEAR DRIVE ERROR COUNT 
TYPE DROPOR TYPE ™ PROBE NG DRIVE" 
IMP NEWDRV ‘PROCEED TO TEST NEXT DRIVE 

98: BIT #SW13, ISWR INHIBIT ERROR TYPEOUTS? 
BEQ x3 : Sa NO 
IMP 20S 

6S: CLR RO ;CLR_RO FOR ERROR NUMBER 

cL RS :INIT INDENT INDICATOR 

MOVB  $ITEMB,RO sENTER ERROR NUMBER 
DEC RO *FORM INDEX FOR ERROR TABLE 
ASL RO 
ASL RO 
ASL RO 

1S: ADD #SERRTB, RO FORM RODRESS OF ERROR ENTRY - 

MOV (RO)+,2$ ;GET EM POINT 

BEQ 3$ * BRANCH IF THERE ISN’T ONE 


TYPE » CRELF 
TYPE »AS2SPe s TYPE “ 
TYPE ; TYPE ERROR MESSAGE (EM) 
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; TYPE ERROR ROUTINE 





DZR6NB. CNB 
47 O41 2$: ORD «60 EM POINTER GOES HERE 
8 pat dR senha 041524 58: mov (RO)+,4$ ‘GET DH POINTER 
8949 041354 001467 BEQ Sg ‘BR IF THERE ISN’T ONE 
8950 O41356 104400 001315 TYPE  ,$CRLF 
B30 Owl: O4400 OS6626 TYPE TSTNSG sTYPE” TEST” 
1 13745 0011 MOV STSTNM,-(SP) | GET TEST NO. ON STACK 
8953 041372 104402 TYPOS :TY 
8954 041374 002 .BYTE 2 2 DIGITS 
8955 041375 000 “BYTE OO “SUPPRESS LEADING ZEROS 
8956 041376 104400 013405 TYPE CRELF 
8957 041402 032777 010000 137530 BIT #BITI2, ISWR sREPORT DESCRIPTION ONLY ? 
£958 041410 001133 SNE BR IF YES 
8959 O414l2 104400 061762 TYPE  , DH105 -TYPE “PREVIOUS COMMAND :” 
8960 O41416 104400 001315 TYPE  >SCRLF 
8961 O41422 104400 062154 TYPE  ‘DHIO1+10 ;TYPE PREV COMMAND HEADER 
8962 041426 104400 001315 TYPE SCRLF 
8963 041432 012701 000006 MOV 6.R1 ;SIX COMMAND VALUES 
8964 O41436 Ole702 001236 MOV #SREG26, Re :STARTING ADDR OF PREV CMND VALUES 
8965 O41442 012246 30S: § MOV (R2)+, -(SP) -PUT A WORD ON STACK 
8965 O41444 104401 TYPOC : IT 
8967 041446 013421 TYPE SPACE2 :TYPE SEPARATORS 
8968 O414S2 005301 DEC R *SEE IF 7 VALUES TYPED YET 
8969 041454 001372 BNE 30S :BR IF NOT 
8970 O41456 1 001315 TYPE  ,S$CRLF ‘ 
8971 O41462 104400 013421 TYPE |SPACE2 ; INDENT 
8972 O41466 104400 Ob2233 TYPE  ;{DHIO2 ‘TYPE HDR FOR BA DATA 
8973 041472 104400 001315 TYPE | SCRLF 
8974 O41476 104400 013421 TYPE SPACE2 ; INDENT 
8975 041502 012246 MOV tR2)+,-(SP) 
8976 O41504 104401 TYPOC sTYPE PREV. HI BA BITS 
8977 O41506 104400 013421 TYPE SPACE2 
8978 O41Si2 01124 MOV tR2), -(SP) 
8979 041514 104401 TYPOC ; TYPE PREV. LO BA BITS 
8980 O41516 104400 013405 TYPE  ,CRLF 
8981 041522 104400 TYPE TYPE DATA HEADER 
8982 041524 00000 4§: .WORD O "DH POINTER GOES HERE 
8983 041526 104400 001315 TYPE SCRLF 
e984 041532 O05005 CLR RS -INIT INDENT INDICATOR 
8985 041534 032777 O10000 137376 SS: BIT #B1T12, ISWR *REPORT DESCRIPTION ONLY ? 
8986 O41542 001056 BNE *BR IF YES 
8987 041544 012001 V (RO)+,R1 >GET DT POINTER 
e988 O41546 001454 BEQ 0 “BRANCH IF THERE ARE NONE 
g989 O41550 Ol2000 MOV (RO)+,RO "SET AF POINTER ' 
8990 041552 Ole002 MOV (RO)+;R2 >STORE NUMBER OF DH’S 
8991 O41554 112003 10$: MOVB (RO)+,R3 *GET & STORE NUMBER OF DATA WORDS 
8992 041556 105720 TSTB = (RO) + *BUMP PAST FORMAT WORD 
8993 O41560 005703 TST TEST IF ANY DATA FOR THIS HEADER 
8994 041562 001417 BEQ 145 =NO = SKIP DATA PRINT 
8995 041564 005705 TST RS : 
| 8995 041566 001002 BNE 1 *BR IF NOT 
| 9997 041570 104400 013421 TYPE SPACE2 : INDENT 
8998 -041574 013146 11$: MOV Q(R1)+,-(SP)  ;PUT FIRST DATA WORD ON STACK 
8999 041576 104401 TYPOC : 
$000 41609 005303 DEC R3 "MORE DATA WORDS 
| 900i O41602 001403 BEQ = 1eS ;NO- 
| 9002 O41604 104400 013421 TYPE  ,SPACE2 :TYPE SEPARATORS 
| 


a 
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ZRENB. CMB TYPE ERROR ROUTINE 
9003 041610 00077 BR 11$ : LOOP 
anos ible 0057 12$: TST Re i SEE IF CRD , «LF? NEEDED 
1614 0014 BEQ 14S : BR 
80068 O41616 104400 001315 TYPE SCRLF TYPE IT 
tne Bie 2 14S: DEC Fe im R ats” 
1 53g 041660 1S$: MOV (RO)+, 168 CET NEXT DH POINTER 
8010 O41632 105710 TSTB = (RO) ‘ ; SEE IF ANY DATA FOR HOR 
8011 041634 001004 BNE 343 YES. 
8012 041636 104400 001315 TYPE SCRLF SKIP EXTRA LINE 
8013 o41642 O0S5005 CLR RS *RE-INIT ANOENT INDICATOR 
8014 oO41644 o00404 BR 365 
8015 041646 005105 34$: COM RS sCOMPLEMENT INDENT INDICATOR 
9016 O41650 001002 BNE 368 *BR IF NO INDENT REQUIRED 
$017 041652 104400 013421 TYPE  , SPACE2 j INDENT 
$018 O41656 104400 36$: TYPE {TYPE DH 
9019 041660 16$: .WORD O DH POINTER GOES HERE 
9020 O41662 104400 001315 TYPE SCRLF 
9021 O41666 105710 TST8 ~——«E RO) :TYPE A OT? 
9022 041670 901 BNE 10$ : YES-BRANCH 
8023 041672 062700 o00002 AD #2, RO INCREMENT DF POINTER 
9024 041676 000751 BR 14$ *SEE IF END OF DF BLOCK 
9025 041700 104407 20$: § RESREG 
9926 041702 000207 RTS c 
9027 © SLES R ELE RL EKER LEE KEK EKER ASKS KSEE A ELF SRSA FLEE EERE RELL ERASE LHF SESE 
9028 ’ASTTL CONTROLLER ERROR REPORTER ROUTINE 
$029 : XENTRY: 
3030 ERE TUR: RTS PC’ 
3038 *THIS ROUTINE DECODES THE CONTROLLER ERROR WORD AND 
j FREPORT THE A ap ROP IATE MESSAGE THE RK611 REGISTERS ARE 
9034 ; #RETRIE HE RK611 AND PLACED IN THE PARAMETER 
3035 :¥BLOCK. “ras Re DONE BECAUSE PARM 0 MAY NOT Be VALID 
9036 AT THIS TIME. 
9037 a ae eee 
8038 041704 104406 BbNERR: S °S 
9039 041706 152737 000377 003113 Breer’ #377, DONE tSET DONE FLAG 
9040 041714 105237 003116 INCB ERRCHT INCREMENT ERROR COUNT 
9041 041720 004737 044634 JSR C, TOPROC LOAD RK REGS INTO $REGS 
go42 041724 nee 000001 003042 BIT WStTO. E. CONT ; ERROR Q? 
8043 041732 001402 BEQ 1$ NO-BRANCH 
9044 041734 104064 ERROR 64 “CLEAR CONT DID NOT CLEAR ERROR 
3045 Oi 7 36 000470 7§ 
9046 041740 032737 oO00002 oco3042 1S: BIT #BIT1,E.CONT — ; ERROR ate 
8047 041746 001402 BEQ $ : NO-BRAN 
8048 O41750 104065 ERROR 65 >NO SRO ENT TON IN ATTENTION SUM REG 
9049 041752 O00462 $ 
8050 041754 032737 O00004 ocOz042 2S: BIT #B1T2,E.CONT § ;ERROR et 
3054 Ou 1762 001407 BEQ 3$ :NO-BRA 
1764 105737 003127 TSTB DRNAFG :SEE ir SRIVE WAS SIEZED BY OTHER PORT 
8053 041770 001402 BEQ 1S$ iBR IF NOT 
3054 gui77e 105237 003130 INCB REISSU *SET FLAG TO RE-ISSUE COMMAND 
9055 04] 104066 15$: ERROR 66 tBNSOL CITED ATTENTION 
042000 000447 BR 


9056 7$ 
9057 O4e00e 032737 000010 O03042 3%: BIT #81T3,E.CONT ;ERROR 3? 
3058 ' 4$ ;NO-BRANCH 


g 
8 
oO 
8 
= 
S 
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CONTROLLER ERROR REPORTER ROUTINE 


9061 042016 032737 000020 
04 402 


9065 O4e032 932737 000040 
9066 Oe 


8069 042046 032737 OO0400 
. 8076 


042060 032737 001000 
9074 
9075 O4e07e 032737 002000 
3076 


104074 
9078 042104 032737 100000 


O4ele0 005037 O0304e 
9083 O421e4 000137 044434 


$059 O4201e 104067 
| 3060 Buso14 0441 


$087 ™ 

9088 

$0839 042130 

9090 O42130 104406 

9091 O4el3e 005037 005500 
042136 116537 000001 

9093 O42144 Ole700 O0il 

$094 042150 


stata =: 

ts Prites 
é 
o 


00 
1 116503 000007 
$102 O422e04 O4e703 177774 
9103 1256 
3104 
9105 O4eee2 O165e0 000016 
9106 O%2ee6 016520 000020 
$107 OYee3e 016520 000030 
9108 O4¢ee36 016520 O0000c6 
3108 C4224 016520 
/ 9111 O4ee4%6 O16520 000024 
; Qlle O4eeSe O165e0 000032 
| 9113 O4ee56 016520 000036 
9114 016520 000034 


003042 4S: 


003042 


003042 


003042 


003842 


003042 


oossoo 


001260 


Ss: 


6S: 


9$: 


10$: 
113: 
73: 


Y 
GHBHGHBEEHEEH HEHEHE HEHEHE HEHE EEE 

*ABTTL REPORT SUPPORT ROUTINE 

sxTHIS ROUTINE LOADS ALL 
**INTO THE PROPER TEMPORARY REGISTERS FOR REPORTING. ALL THESE MAY 

* ¥NOT BE INCLUDED IN THE REPORT, BUT THEY ARE LOADED ANYWAY. 


"$A VREG 


REPSUP 


ERROR 5% ;UNEXPECTED DATA TYPE ERROR 

BIT #BIT4,£.CONT ;ERROR 4? 

BEQ c$ ;NO-BRANCH 

BRnOR oe ;ATTENTION DID NOT RESET WITH CLEAR 
BIT #81TS,E.CONT bao S? 

BEQ 6$ NO-BRANCH 

i ot ;SUBSYS CLEAR DIDN’T CLEAR DRIVE ATTENTION 
BIT #81T8,E.CONT 

BEQ 8$ 

ERROR 72 ;DATA LATE WHEN UNLOADING HEADER 

Oa ls cass 

ERROR 73 ;CONTROLLER ERROR DURING DRIVER SERVICE 
Bet 1 eaasiana 

ERROR 74 ;DRIVE DETECTED PARITY ERROR 

BIT #BIT1S,E.CONT 

BEQ 115 

ERROR Se j MULTIPLE ORIN SELECT 

ERROR 75 ; UNDEFINED ERROR 

CLR E.CONT CLEAR CONTROLLER ERROR WORD 

JMP B :GO D0 
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THE PARAMETER BLOCK DATA TO BE REPORTED 


ERRCOM *CLEAR ERROR COMMAND STORE 
P.CMND(RS),ERRCOM -STORE COMMAND START VALUES 
sFOR REPORTING 
P.CYLNIRS), ( 


P- TREKS), RDS 
P. SECTCRS), (RO)+ 


P. WCCRS) (RO)+ 
SRO 
P BAHI(RS) ,R3 
#177774,R3° 
R3, SREG36 BA BITS 
P. Bar ocRe) sreca? 18 BR BITS 
P. CS1(RS) ROD 36 GET ALL THE VALUES FROM THE 


5S i L 

;FOR ALL REPORTS (TO BE 

; DETERMINED 2 BUT IT IS 
+ ;STORED ANY 
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9115 O42266 O16520 oon040 MuV P.ANO(RS), (RO)+ 
9116 O42272 O16520 oo004e2 MOV P.BOO(RS), (RO)+ 
311? 042276 016520 gooo44 HOV P BO} (RS), (RO)+ 
11 Bub Beooe | MOV B BIO (RED? (ROD 
9120 O4e3l2 016520 o000Se MOV P.B10(RS), (RO)+ 
9121 042316 916520 oo00s+ NOV P.ALI(RS), (RO)+ 
9122 O42 016520 000056 P-B11(RS)° (RO)+ 
3ie3 : STORE PREVIOUS COMMAND FOR PRINTOUT 
9:24 042326 012701 001236 #SREGC6,R1 “ADRS OF PRINT BUF AREA 
9125 O4e332 912700 o0S224 NOV #PRVCMD; RO {ADRS OF PREV CMND STORAGE 
S126 042336 112021 MOVB (RO)+, (R1)+ :DRIVE NO. 
9i27 O42340 105021 CLRB ss (RI) + 
9128 O48342 112021 MOVB  (RO)+, (R1)+ : COMMAND 
9129 O42344 195021 CLRB 3s (RL) + 
8130 O42346 Ol20e2i MOV (RO)+, (R1)+ :CYL ADDRESS 
9131 O42350 11602: o00001 MOVB  1(RO),(R1)+ : TRACK 
9132 042354 10 CLRB ss (R11) + 
9133 042356 111021 MOVB (RO), (R1)+ : SECTOR 
9134 042360 10502! CLRB = (R1) + 
9135 O4e362 016021 oD0006 MOV 6(RO), (R1)+ ;WORD COUNT 
9136 O42366 116003 000003 MOVB  3(RO)-R3 *HI BA BITS 
9137 O42372 O42703 177774 BIC #177774, R3 
$138 042376 010321 MOV R3, (R14 
9139 042409 O16011 oo0004 MOV 4(RO), (RL) :LO BA BITS 
8140 o4e404 1044907 RESREG 
9141 06 000207 
9142 : © SKKKEKZLHELEK EEK KERA LER LELKE RAFAEL HEE EEEKE RLF ELEL ELLA KLEEEE 
9143 “SBTTL REPORT ERROR ROUTINE __ 
9144 * ENTRY JSR PC, ERRHOL 
aii j RETURN RTS PC’ 
| 9147 S STHIS ROUTINE 1S CALLED BY THE DRIVER WHEN AN ERROR Is DETECTED 
9148 **IN THE OPERATION. THE ROUTINE DETERMINES WHICH COMMAND WAS 
9149 BEING EXECUTED AND GENERATES THE PROPER ERROR MESSAGE. 
giz 38 = KELLER EKAL LALA LEE KERALA LA LRA HERE LARA KAA KLA KERALA LRAL ARAL AREZALEE 
| 9152 o42410 104406 ERRHDL: SA\’REG 
9153 O42412 152737 000377 003113 BISB. #377,DONE SET DONE E FLAG 
| $154 o42420 105237 9003116 iNCB ——- ERRCAT > INCREMENT ERROR COUNT 
| 9155 O42424 005037 005476 CLR _ RECODE *CLEAR RECOVERY CODE WORD 
91568 042430 032737 OOOYOD 005476 ERENT: BIT #LEV2EP,, RECODE ;TEST IF 2ND LEVEL ERROR 
9157 042436 001402 . BEQ S2$ *NO = SKIP PARAM BLOCK CHANGE 
9158 O42440 012705 002704 MOV #PARM1,RS “ELSE SET RS TO PARAMETER BLOCK 1 
9159 O42444 012737 O44606 003036 S2$: MOV #RETANL,A.ABNL SET NOW ABNORMAL AND NORMAL RETURN FOR 
| 9160 O42e4S2 012737 O44624 003034 MOV SEINE A:NORM DRIVER OPERATIONS IN ERROR PROCESSING 
| 9161 O42460 004737 042130 JSR PSUP GO SET UP REGISTERS FOR REPORT 
$162 "NOW BEGIN: TESTING THE E 
$163 ;BITS. THE SEQUENCE I 
' 9164 WHICH THEY. ARE TESTED IS 
| S165 CONSIDERED SIGNIFICANT IN 
| 9166 *THAT ERRORS OF A MORE 
| 9167 CATASTROPHIC NATURE ARE FIRST 
| §168 ; TEST ED. 
| 69169 
9170 


SIF AN ERROR IS FOUND SET, 





2 ee ee a ee 
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‘S17 CRROR IS TED AND. 
Fe Tt Teer ne | TERMINATED 
323 ite att "RESISTER fig 
317 ay TER FER CONTENTS: 
ee ae CopeD: T0 O rocete THE 
§i>3 ‘eso 900034 Moy «BER RS). 84 an mo 56 fF OR REGISTER 
$:30 Reiss Refs S§ 620000 occoeo git sUPe,P.CS2cR5) i TYPE. If SET 
$181 Paras 1406 369 1§ 
zi8¢ RROR 
$i pies go02eo o0s476 1s BABORT, RECODE 
$184 19 000137 O44160 IMP 37 : 
$18s 42514 caerbs Oo4000 o0002D :S: B11 BNEM,P.CS2(RS) ; 7ST NON-EXISTANT MEMORY 
2186 O4e522 001 BEG 23 
$1 ERROR 2 
$i 2526 po0200 o0S476 SIS SABCRT, RECODE 
31 544160 IMP 378 
Fe ee 010006 occd20 2s: err aNED,P.CS2(RS) sTEST NON-EXISTANT DRIVE 
$1 poo4eo o0cd20 T SUFE,P.CS2(RS) ;TEST IF NED 8 UFE BOTH SET 
gigs fuseee be1403 Bo SS ‘ 
518 C4025 ERROR 35 ;NED & UFE BOTH SET ERROR 
sigs 044160 = IMP 378 
31% 38S: ERROR ;NED ONLY 
$197 04 00137 O44160 IMP 378 
2138 5674 032785 oocc20 3S: BIT SUFE,P.CS2(RS) ;TEST UNIT FIELD ERROR 
$i 602 Oo BEQ 4§ 
$200 O42604 932765 010000 onc0z0 BIT SNED,P.CS2(RS) ;TEST IF UFE 8 NED BOTH SET 
920 Seble 001 BEQ 395 *NO-SKIP 
i4 ERROR 35 :REPORT NED & UFE SOTH SET 
peb1e 137 044160 IMP 373 
9204 194004 2958: ERROR 4 ;REPORT UFE ONLY 
$205 42624 000137 o44160 IMP 378 
298 Dee Se7e5 900100 000014 4s: eI SCHOTO,P.PRST(RS) ; 
9208 042640 O04 044634 ISR PC, TOPROC ;GO PROCESS TINEO 
$209 ay pee 002000 005476 BIT 8TWOTOS,RECODE ;2ND TINEOUT IN T NEOUT PROC? 
$210 94 r BN 405 YES = SKIP TO Sb 
S211 OM 000400 oO0S47& I SLEV2ER,RECODE TEST IF LEVEL 
9212 dctb2 1006 BNE 4i§ “YES = SKIP TO ERROR S7 
$213 pcbbH 1 ERROR “ELSE MAKE FULL TIMEOUT REPORT 
$214 000 044160 IMP 
3215 pases 1 40S: ERROR 56 ;TWO TIMEOUTS ERROR REPORT 
8316 042674 000137 044160 IMP 
$237 7 41$: ERROR 57 
#18 2430 IMP ERENT 
$31 10000 oocc14 Ss: BIT (lo msn a FOR ame aE trae” BTHER PORT 
ect ste te 003126 ap Breacs BR Tr ee “Access FUR 
2553 $8 ite BNE 635 BEE IF DUAL-ACCESS TEST 
$223 42724 104107 ERROR 107 *DRIVE SIEZED BY OTHER PORT 
S2e4 04 000137 oO441 IMP 375 
Sees OM 1 0031 63$: INCB  DRNAFG T ORIVE NOT AVAILABLE FLAG 
S226 042736 Ol2e762 100000 ocon000 MOV #100000, rKesi (Ress CLEAR C 


ONTROLLER ERROR 


ee a ee + ee oe 


f 
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= 


os 
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4 


SSR ESRAMRUISG SS iia aii RH Rea Bi BUS RN di 
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? 
ie 
‘ 
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5 


003104 
00307 

Bsesa 
000016 


005476 


00S476 


005476 
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OR THIS DRIVE — 

NUMSER FOR THIS ORIVE 
FLAG 

:G0 WAIT FOR ORIVE ATT’N 

;TEST SERCON PARITY ERROR 

;TEST DRIVE DETECTED PARITY ERROR 


; TEST AC LOW 


37$ 
 - ermeecceatitas ; TEST SPEED LOSS 


; TEST FOR CONTROLLER TIMEOUT 


; TEST ILLEGAL FUNCTION CODE 


; TEST PROGRAMMING ERROR 


; TEST ILLEGAL DRIVE FUNCTION 


; TEST ORIVE TYPE ERROR 


; TEST FORMAT ERROR 


; TEST WRITE LOCK ERROR 


;TEST DRIVE UNSAFE 


MoV W.MIN,W.ORV 
MO VE.R : 
MO .ORVURO), INTMSK 
Noy NTNSK, t 
es Be : 
S$: 3 sSPAR,P.CS1(RS) 
9 3 
ERROR 6 
83 SRCLREQ, RECODE 
J 373 
63: SIT SORPAR, RY 
8&9 7. 
ERROR ? 
e15 SRCLREG, RECODE 
J ? 
73: aIT #ACLO,P.DS(RS) 
BEQ 8g 
ERROR 10 
IMP 
es: BIT 
BEQ 
ERROR 11 
IMP 375 
e4$: BIT 8CT0,P.CS1(RS) 
BEQ ess 
ERROR 27 
25$: IT SILC, RY 
BEQ 10§ 
ERROR le 
IMP 375 
10$: BIT #PGE,P.CS2( RS) 
BEQ 118 
ERROR 13 
IMP 37$ 
118: BIT SILF,R4 
BEQ 12$ 
ERROR 14 
IMP 378 
123: BIT sOTYE,R4 
Q 13$ 
ERROR 15 
IMP 375 
138: BIT aFMTE,R4 
BEQ 14S 
ERROR 16 
IMP 378 
14$: BIT #WLE, RY 
BEQ S$ 
ERROR 17 
IMP 37S 
15$: BIT #UNS,R4 
BEG 16$ 
ERROR 
BIS SABORT , RECODE 
IMP ALL TRM 


ee eee 





Scituate eine RMN 


Bee eee 
2D OO NIDUI£ Gru 
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OR RCUTI! 
932704 oocoge 168: gif asx, Re sTEST SEEK INCOMPLETE 
1 BEQ 1 
ERROR 21 
rates oos476 B13 BRCLREG, RECOLE 
1000 178: BIT COE, RY sTEST CYLINDER OVERFLOW 
l : E90 18$ 
a ERROR 22 
pouoog cos47s 51 BECLREG, RECODE 
C3704 Beedee 18$: BIT SIDAE, RY sTEST ILLEGAL CYLINDER 
1406 SEQ 19§ 
ERROR 23 
go4o000 005476 BIS SRCLREQ, RECODE os 
137 O44160 IMP 3 
032765 000040 000036 19$: 8IT BOROT,P.OS(RS) ;TEST DRIVE CFF TRACK 
001406 BEQ 20S 
o4ce4 ERROR ‘ 
hese 904000 005476 BIS SRCLREQ, RECODE 
000137 O44160 IMP . 
032704 010000 20$: BIT #DTE,R4 TEST DRIVE TIMING ERROR 
001 BEQ 21$ 
ERROR 25 
po00200 005476 815 SABORT, RECODE 
000137 O44160 IMP 378 
032765 100000 O00020 21$: BIT SOLT,P.cS2(RS) ;TEST DATA LATE 
001403 BEQ 228 
i ERROR 26 
ss O44160 378 
036704 020000 225 BIT 8OPI,R4 sTEST IF OPI ERROR 
001 BEQ 29S 
Ose? 37 900010 005476 BIS SOPIERR, RECODE 
105732 003111 1S18 DERCNT TEST IF FIRST ERROR 
000137 o44160 IMP 375 ;NO = SKIP REPORT 
032737 OOO400 O0SY76 SOS: BIT BLEV2ER,RECODE ;TEST IF A SECOND LEVEL 2 ERROR 
001403 BEQ 265 {HAS ALREADY OCCURRED 
104054 27$: ERROR S4 
900137 044160 IMP GET OUT OF REPORT 
004 4 26$: JSR , BLDEXH GO BUILD CTED HEADER 
004737 O45004 JR PC’ ROHDO :GET OF SECTOR 0 
032737 000400 o0S476 BIT #LEV2ER,RECODE TEST IF ERROR GETTING HOR 
001025 BNE 28s tIF YES- NeKE ABREVIATED REPORT 
01 003026 MOV RKBAS, Re *STORE HEADER O INTO REGISTERS 
4 000100 oo0000 BIC SIE,RKCSI(R2) RESET INT T ENABLE 
01 p000e4 o0i202 MOV RKDB(R2),SREGIO ;FOR REPORTING 
016237 000024 001204 MOV RKDB (RE), SREGLL 
0i6237 000024 001206 MOV (Re) ' SREG12 
O3e7be 100000 000000 BIT ACERR, RKCSI (Re) ;TEST IF ERROR DURING STORAGE 
1 ERROR 30 ;MAKE OPI REPORT 
Rae 044160 IMP 37$ 
104054 28$: ERROR 54 
0424 IMP ERENT :GO MAKE 2ND LEVEL REPORT 
6004 298: BIT SHVRC, RY TEST IF HVRC ERROR 
001457 BEQ 


Se en ee eee ee ee 


9339 043574 052737 O09004 ONSH7E isis DESC sTEST_ ae PAR 
RROR HAS ALREADY 
a ; MP RECODE Wel IF A 2D RD LEVEL E 
d3u3 Guseia Ose7a? OcosGd O0SH7 308: BIT hon CCURRED. NO-SKIP EXIT 
OM 0014 Sis: SRROR 88. set OUT OF ERROR REPORT 
sue =e "IMP : LD EXPECTED HEADER 
ane Os $35 Suede 318: 73R PC BLDEXH 169 PHO Oe certs re io 
a iss buNrs? tee 005476 BIT LEVER, RECODE “; TEST. IF ERROR Se ViaTED REPORT 
S349 043642 032737 SNE se iRET PKBIL 
MOV ¢ e, INTERRUPT 
si Re he 05168 900009 Be abaNeSS Seeds Stone Orr netoeR 
9352 000024 001202 RKOB(RE) SREGII 
551 Gisere less? Oooos4 O01s04 HOV RKDBLRE) areas steer N ANY ERROR IN UNLOAD 
ges 043700 O1e237 000024 001306 BIT  § aCERR,RKCS! (Re) SY "ves ~ G0 MAKE SHORT REPORT 
fee gre oe ee dha tot 
14 
$3 eg Momo = de ee 
S266 ee 1G40S5 prca39 os, fe fee sTEST EOR 
oY ' BEG 3 ae 
ee 043736 001430 47E BIS SBSERRRECODE SET 
05e737 000002 005 P.DCYLIRS) 
Eat B es aE gag 
| Ses Dares besos i777 Fok PC SBDSRK. «$60 SEE er TH 18 SECTOR LISTED 
| S55 pies pee ee Bit —-eBADSEC, RECODE seat PEBAT > canon Of REPORT 
| dn baare 001000 005476 BNE 378 ; ort 
| $372 O44008 002n6s Oh ele e ERROR FL 
: 1049104 % BIC &BSERR,RE sReoeT 
| Bwci6 os ooo0g2 o0s4 as ee 1 
ene 16 032704 100000 a 2 is RECODE ;SE7 DATA CHECK ERROR IN RECOVERY CODE 
it SE ea a 
| Se BTS CCNC , RECODE TACT CATE UNCORRECTABLE, 
! 3381 O44O42 e279? if amie Be siecle etl Tg bet BOE eorne 
| BR 
Gl2 
ss Gai roosts 90000} 001206 34s: HOV, = 81 ,SRe sTEST, IF FIRST ERROR 
| Ses Geiss 105737 Dost = iD SET POEK GODRESS OF ERROR 
| Bee SHo70 oolgs3 HOY PLEPOS(RE) ,SREGIO ; STORE RE ECC POSITION & 
| Se Gwe b1es37 Godded 001202 MOV. —- P_EPAT(RS), SREGL aT peat PL ERROR 
| es ouaios oles? o00e2 001204 ERROR . 
_ 9390 O44il2 1 IMP 3 (RS) ;TEST WRITE CHECK ERRO 
| $361 O44114 000137 o44160 20 36S: BIT sWCE,P.cs2 ; 
a G3676s coon : Beg 373 ot RECODE CLEAR ABORT & SET WRITE 
| 64 Dw150 042737 000200 005476 








c 
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DSRENB. CMB REPORT-ERRGR ROUTINE | 
9395 044136 052737 000100 oDs476 is WCERR,RECODE  ;CHECK ERROR IN RECODE ~ 
33% ows 1087 003111 S18 DERCNT sTEST IF FIRST ERROR 
1 Bei 045140 ISR C, GTPKAD :60 ceF ADDRESS OF ERROR 
399 156 104033 ERROR 33 ‘REPORT WCE 
9401 O44160 932 000020 000014 378: 8siIT #DRVHRD,P.PRST(RS) ; TEST HARD ERROR 
e102 ov4166 001404 BEQ 43$ 
9403 O44! 04036 ERROR 36 
s103 044172 052737 000200 005476 BIS ABORT , RECODE 
6406 O44200 032765 OO0040 O0001Y 43g: SIT SDRVDSC,P.PRST(RS) ;TEST STATUS CHANGE NOT CLEARED 
Supe ENNBIB ioNGa? ERROR 37° 
3109 o442le heaose oo0e00 o0s476 BIS #ABORT, RECODE 
9411 O44220 032765 OO4O00 ofu0l4 445: BIT 8NODSC,P.PRST(RS) ;IFST ATTENTION BUT NO FAULT OR DSC 
Suis G44858 Souo4d EEAOR up 
pat O44232 052737 000200 005476 BIS sABORT,RECODE 
S416 O44240 032765 OODDIO OOODLY 46$: BIT © &sUEXATT,P.PRST(RS) ;TEST UNEXPECTED ATTENTION 
Guia Dusen IpdoNe ERROR ape 
| au3 O442S52 052737 o00200 005476 BIS #ABORT , RECODE 
9431 i 
| gice ALL ERRORS MUST EXIT THROUGH THIS POINT 
9424 044260 012705 o0n2620 ALLTRM: MOV SPARC) RS ; RESTORE PAROMETER BLOCK SELECTION 
Suse paus HE Att Bpsose 4 HOV SERRPRE’ A NORR + BRIER SO EONS VEE BAY a ps 
| gua? Baus08 pas73> poteos BOSteE BIT  #ABORT,RECODE IF MBORY Te NOY SET AND 
aie8 044306 001043 BNE 48 ‘THE DRIVE as READY (HAS NOT 
| $430 044310. 013702 003026 MOV R2 GET BASE ADDRESS 
' 431 044314 O32762 000200 connie _BIT | SRDY,RKDS(R2) TEST IF DRIVE READY SET 
| @433 944322 . 001004 BNE . *RECALIBRATE REQUIRED BIT IS SET 
| at33 ouised Ose737 000200 005476 i BIS 8ABORT,RECODE ELSE ABORT WITH ABORT 
9435 044324 032737 OO4000 O0S476 47S: BIT SRCLREQ,RECODE ;IF RECALIBRATE IS REQUIRED 
9436 O44342 0014 ‘BE TY *FOR RETRY SET UP PARAM 
| 9437 O44s44 11 000113 oo0001 MOVB  &RECAL,P.CMND BLOCK TO DO IT. 
|e Bigs Bare poe URL 
| oe puss Gae7a7 Boeo0 SHESeE BEY AEEUOER RECHDE PIETAN EREGR CCCHRKED IN THE 
| aac pes74e o00200 005476 re BOR oe sRECAL THE RECAL PEON RESSAGE AND 
i gu4y La 104060 ' ERROR 6 , 'G0 REPOR RESALE . 
| S445 QuNHI2 000137 042430 IMP ER2ENT 
: atte O44416 104061 : ye$: ERROR 61 REPORT ABORT-RETRY FAILED 
| g44g , THE PROGRAM WILL HALT HERE IF THE ABORT FLAG HAS BEEN SET OR 
| 3449 IF THE DRIVE READY BIT IS RESET. 
m50 
| 


ewe one err ene. — es on - eee eee re 





16 
732) 


O3-NOV-76 21:43 PAGE 202 



















REPORT ERROR ROUTINE 


o44420 000000 HLTPRG: HALT 
4y32 105037 003116 CLAB_ - ERRCNT SCLEAR ERROR COUNT 
36 000005 RESET IRESET ALL DEVICES 
O44430 O00137 013516 INP CMSTRT 
sTHE FOLLOWING CODE ILL, DETERMINE TF ano DATA. TYPE, ERROR 
HAS OCCURRED. IF. YES, THE RETRY IS NOT DONE HERE GUT RETLANS TO 
i'THE INITIATING ROUTINE FOR RETRY. ANY OTHER ERROR IS TO GE 
IRETRIED HERE. IF RETRY IS UNSUCCESSFUL AFTER 4 ATTEMPTS, THE ABORT 
SFLAG IS SET AND PROGRAM HALTS. 
Qww4a4 032737 00126 O0S47G BGNATY: SIT SBSERR!HVRCERLOPIERR!OCKERR!MCERR,RECODE ;TEST IF ANY DATA cee 
Bagu4d OS2737 100000 OOSY7S 98: Bis  sANYDER,RECODE 
o00453 BR 25 
AMM 003133 38: tsTR —_NORTRY SEE IF “NO-RETRY” FLAG SET 
044460 nied *BR IF YES 
O444e2 032737 OD1000 O0S476 BIT  sBADSEC,RECODE TEST IF BAD SECTOR FLAG SET 
44470 901044 BNE 2 LIF YES-EXIT TO 
O444u72 123737 003116 003117 CMPB © ERRCNT,ERRLMT BEGIN RETRY IF ERROR COUNT HAS 
044500 001012 BNE IS 'NOT BEEN EX 
Oyuso2 005027 001174 CLR 4s SREGS 
44506 113737 003116 O01174 HOVE, ERRCNT,SREGS GET ERROR RETRY COUNT 
IREPORT RETRY UNSUCCESSFUL 
O44E16 o0su76 BIS SABORT,RECODE pa ABORT & QUIT 


RK BASE ADDRESS 
ommend) jSeT_UP TO CLEAR SUBSYSTEM 


GO AND REESTABLISH THE COMMAND 


1$: MOV 
000177 O00001 MOVB 


oan 
ut 
: 


8 


044524 
O44525 
paueus PC. OR 
044544 012700 005240 sCOMSTR 
puieeg biedes (RO)+, (RS)+ 305 IT WAS ENTERED INTO THE 
1 MOV (RO)+, (RS)+ sPARAMETER BLOCK 
O44554 0120c5 MOV (RO)+, (RS)+ 
O1e0es MOV (RO)+; (RS)+ 
01 MOV (RO)+? (RS)+ 
012025 MOV aN 
ais Te ‘i 177776 HOV sPRO Srey sLOWER PRIORITY TO ALLOW INTERRUPT 
Oyaeoe piers nat JSR PC, DRVCAL “CALL DRIVER 
O44602 104407 2S: RESREG IF RETURN GETS HE 
O44604 RTS PC “OCCURRED, RECOVERY Phas SUCCESSFUL 
O4¥4606 152737 000377 003113 RETANL: BISB  #377,D0NE~ -  ;SET DONE 
owel4 000400 005476 BIS SLEVCER, RECODE SET LEVEL TWO ERROR 
O44624 152737 000377 003113 RETNML: BISB #377,DONE SET DONE 
O44632 RTS PC 


COOSA SREL AEROS EE 6 
; 
3 
A] 


ce og oT cane caine 
s#THIS ROUTINE SUPPORTS THE ERROR HANDLER BY PROCESSING TIME OUT STATUS 
;*GATHERING DUTIES. 


Bae 
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OO a aa ange fs PN RNR Se hes KAR SNe 


e 


pe 
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Si 


PAIRARIRS 
WONIWMUI£UWIfuH-O 
peppy Syste 

BERR RRRES 


8 


epnnennnnennanan 
nas & 


ih 
@ 
eee 


potanine 
NE 


SAVRE 
MOV RKBAS, Re 
MOV #SREGS, RI :SET UP RI FOR RK ofEGISTER STORAGE 
MOV RKCS1(R2),(R1)+ :STORE ALL VALID RKS11 
MOV RKCS2(Re)'(R1)+ :REGISTERS 
MOV RKOCRE),tRIJ+ 
MOV RKDA( Re), (R1)+ 
Vv RKWC(R2), (R1)+ 
MOV RKBA( Re), (R1)+ 
MOV RKASOF (RE), (RL)+ 
MOV RKDS(Re), (R1)+ 
OV RKER(Re), (R1)+ 
CLR sTHIS CODE WILL ATTEMPT TO 
*RETRIEVE THE STATUS FROM THE 
DRIVE. 
MOV “SET UP TO 
MOVE eRoeTat e P.CMND(RS) :DO READ BRIVE STATUS COMMAND 
JSR PC, DRV “CALL DRIVER 
BIT #CMDTO,P. PRST(RS) : TEST FOR TIMEOUT 
BEQ 1 =NO = SKIP 
BIS #TWOTOS,RECODE SET TWO TIMEOUTS FLAG 
ADD #P. ADD ;BUMP RS TO POINT TO DRIVE STATUS 
MOV (Ré)+, tRI)+ *MOVE ALL THE DRIVE STATUS INTO THE 
MOV (R5)+; (R1)+ ?TEMP REGS FOR REPORTING. 
MOV (RS)+, (R1)+ 
MOV (RS)+, (R1)+ 
MOV (R5)+; (R1)4 
MOV (RS)+, (R1)+ 
MOV (RS)+; (R1)4 
MOV (R5)+; (R1)+ 
MOV #PARMO, RS ;RESTORE PARM 0 
RESREG 
RTS PC 


i. natant 


7 ieee 


é 


oor 

oo 

oo 
= 


: 


ue 


An 


ooo 
arrears 
Lo) 
— 

Be 


8 
8 


Sa 


é 





SAVREG 
MOV P.DTS(RS),R1 § ;STORE TRACK AND SECTOR 
MOV P.BIO(RS).RO  ;GET THE CYLINDER ADRS 
BIC #160017,RO0 *FROM THE DRIVE STATUS. CLEAR 
ASR RO OFF UNUSED BITS AND POSITION 
ASR RO FOR USE AS THE DESIRED 
ASR RO *CYLINDER IN THE READ 
MOV BPARNL.RS -»sESET-UP $0 USE, 
BAe aets) iD, Mp Sct Fin veo vom 

: 
BITB #B.CFMT,FORMAT ;TEST PRESENT FMT AND CHANGE IT 
BE 1$ "TO THE OPPOSITE. THIS WILL CAUSE 
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peraee 
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A 
3 
aang * 


ay 


i) 
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Zl eee 


PRERRALRE 
ONO CWO 


SS 


e 
Bae 


8 
& 


000020 


000030 
000026 
174377 


000007 


000007 15: 
000001 2$: 
177776 


000007 
000007 


t 


-$8 
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a8. -CFMT,P. CSIH(RS) pA REPO oR re 0 HOR ON 


#8.CFMT, P. CSIH(RS) 
#ROHEAD: P 


PC 


0, dePSW 


#PR 
PC DRVCAL 


“ CMND (RS) 
sALLOW INTERRUPTS 
DO READ 


CSIH(RS) 


#8: CFMT,P 
FORMAT, P. eStatRes 
#PARMO; RS 


;SET READ HDR COMMAND 


HDR 
; CLEAR ne FORMAT BIT 


-RESTORE TYPE AND FMT IN USE 
J péctoRe B P.8. 6 ADDRESS 
RESTORE RO-RS 


EL 


‘PAD: HOV’ P DCYL (RE) GREGE GET CYLINDER MEER 


GET CYL 
;CLEAR REGISTERS FOR 

SREG7 *TRACK & SECTOR STORAGE 
P.OTS(RS),SREG7 :STORE THE TRACK AND SECTOR 


“ADJUST THE ADDRESS CONTAINED IN 
st afk REGISTERS FOR THE AUTOMATIC 


001174 &tpKap 


001200 
001176 


000016 15: 

001200 

001200 2$: 
3$ 


001176 4S: 


P.DTS+ 
SREG7 


1§ 
SREG7 


aCFMT,P.CS1(RS) 
#19. , SREG7 
#21. ,SREG7 


G6 


1(R5), 


$REGE 


5 3 9 EEE EAE 
BUILD EXPECTED HEADER 


TTL 
ie Gh HEADER Uns Grete 


47 O LOR REP 


TRACK AND SECTOR REGISTERS TO DETERMINE 
XPECTED. LOADS EXPECTED VALUES EN SREGS, 6, AND 


Fy ape pean 


XH: SAV 


001174 





-OCYL 
i7aa77, 


Ri 


),SREGS ;CONSTRUCT EXPECTED HDR 
eetne} RI ;DESTRED CYLINDER & DESIRED TRACK 
CLEAR ALL BUT TRACK BITS 
'GND SECTOR. SHIFT THE TRACK 
R TO CONFORM TO HEADER FORMAT 
CK THE FORMAT BIT AND 
SET, SET THE HEADER FORMAT 


3; OVE 
; CHE 
; IF 


8 i  r, 
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DZRENB. CNB D 


er5 Bubses Basher LreraB bblire Bie air7iwo,SREce FELEAR ALL BUT SECTOR 


oss pepsas, OG 001176 ne Bt 00, SREGE 3D Toe eee TOR tae ye 

Shes fee Cee mi || ESP, 

9624 1403 BEQ 

925 045350 952737 001000 001176 81S +7600, SREGG 

seb gvo56 013737 O01174 O01200 228: MOV BRE GS, SREG? sCOMPUTE THE HEADER VRC ; 
4 Q 081 001176 MOV 

9628 045370 043737 001176 O01200 BIC Shee’ SREG? 

9629 045376 OM 091174 BIC SREGS|R1 

©8630 O45402 050137 001200 BIS R1, SREG? 

9631 O45405 104407 RESREG 

9632 045410 000207 RTS PC 
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CMS RKEL1/RKOS UNIBUS DRIV 


ER FOR SEQUENTIAL OPERATIONS (REV. 0.08) 


eae ~SBTTL RK611/RKOB UNIBUS ORIVER FOR SEQUENTIAL OPERATIONS (REV. 0.08) 
9636 ;*COPYRIGHT (C) 1975 
apa seDGL TE EQUIPMENT CORP. 
*MAYNA 01754 

Fart :*AUTHOR: ROY SPITZER 
us -SBTTL #WATCH-DOG TIMER 
aug 5s RRRAARAEAARREL LAL AAL ALES AREER LE LLALE LEE RE LEAL LEAR RE LE RELEREL EERE 
S645 7% THE WATCH-DOG TIMER DOES A gta. OF axe Mo 
S646 ; SUBSYSTEM COMMAND. SINC ,* AN NOT GUARANTEE THAT A 
9647 3% REAL-TIME CLOCK (KW11-P OR KW11-L) IS ON THE SYSTEM 
9648 3% THE RKOS oes WibL re The "LOCATION W.MTIM FOR 
9649 3% MILLI-SECO IMING. N W.MTIM REACHES ZERO THE 
9650 3% WATCH-DOG TIMER WILL SCAN Tie “IVES IN USE AS 
9651 ;* DETERMINED BY THE LOCATION W.TIME. THE Leh COUNTS 
9652 - ;* (ONE FOR EACH DRIVE) ARE KEPT IN THE TABLE W ye 
9653 3% IF ANY COUNT IN THE TABLE W. og REACHES ZERO A AND 
9654 3% TIME-OUT WILL BE DESIGNATED IN THE PROGRAM DEVICE "STATUS 
on % REGISTER OF THAT DRIVE’S PARAMETER BLOCK. 
3657 % THE DRIVER WILL USE THE LOCATION W.MIN AS THE NUMBER 
9658 3% OF MILLISECONDS FOR AN UNLOAD OR START SPINDLE COMMAND. 
3659 :% THE DRIVER WILL USE THE LOCATION W.SEC AS THE TIME 
or 7: LIMIT FOR ALL OTHER COMMANDS. 
S662 7% Be QUEUED OPERATIONS THE WATCH-DOG TIMER WILL 
9663 7% WATCH UP TO 8 OPERATIONS SIMULATEOUSLY. FOR SEQUENTIAL 
ere i* OPERATIONS ONLY ONE OPERATION WILL BE WATCHED. 
9666 ;#CALL JSR PC,W.WTCH 
9667 ; . RETURN IF NO DRIVE ORDER EXCEEDED ITS TIME LIMIT 
3669 3% OTHE RMT SS AN gn, RETURN TO THE ROUTINE ADDRESS 
9670 3; BY LOCATION A.ABNL WILL OCCUR AND THE CMDTO FLAG 
9671 3% IN THE PROGRAM DEVICE STATUS REGISTER OF THE 
o55 - APPROPRIATE PARAMETER BLOCK WILL BE SET. 
oe : 5 RERLAARRAEAAELLLAA RAE E RAL ALLRE REA ERE RELA LARA EL REEEEEAELLL ALAA EERE 
9676 O4S412 O10546 W.WTCH: MOV RS,-(SP) ; SAVE Ss ON THE STACK 
9677 O45414 O10446 MOV RY; -(SP) :SAVE R4 ON THE STACK 
9678 O45416 010346 . MOV R3,-(SP) SAVE R3 ON THE STACK 
9679 045420 010246 MOV Re, -(SP) ; SAVE Re ON STACK 
9680 O454ee 013746 177776 MOV PS, -(SP) PROGRAM STATUS WORD ON STACK 
9681 O45426 005337 003046 DEC W.ATIM SBECREMENT MILLISECOND TIMER 
oes S432 001034 BNE 20S :IF NOT ZERO RETURN 

34 013737 003050 003046 MOV 7p aan ;REINITIALIZE MILLISECOND TIMER 
9684 O45442 105737 003070 TSTB =o WW TIME 5 CHECK IF DRIVE IS BEING TIMED 
9685 aan 0014 BEQ T 
9686 O4S4SO 013737 003032 177776 MOV RKPRI,PS TORK QUT RKO6_ INTERRUPTS 
9687 O454S6 013702 003026 MOV RKBAS, Re LOAD BASE OF RKO& REGISTERS 
9688 O4546e 005337 003104 PEN DEC W. ORV sDECREMENT COMMAND TIMER 
9689 O45466 001016 BNE 20$ sRETURN IF NO TIME OUT 





nn ae a ne = en cc a ne ens - eR 
} 


045536 
O4SE40 


105037 
013705 


900207 
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CLRB 
MOV 


CMP 
BNE 
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;RESET TIMING INDICATOR 
LOAD ADDRESS OF ca BLOCK 


oe FO 
sero P.PRST(RS) SE ME OUT 
,O.WAIT C CK F DRIVER Is WAITING FOR 


:NO 50 NOT ALTER TART TING FOR 
COMMAND C 


wm @ 
wu 


cL WAIT FOR COMMAND COMPLETION 
; BRANCH TO ERROR ROUTINE 
;RESTORE PSW 


e 
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DZRENB. CMB #RKOS INTERRUPT SERVICE ROUTINE 
em 3 .SBTTL #*RKO& INTERRUPT SERVICE ROUTINE 
$0 i=} 3 © SLES EKLA ELL AKA RELL E RAKES RA LKEH ERK EK KAELEKE LE RE LLL ESFAE SEF EEF FFE 
°& 
3210 i THIS ROUTINE WILL SERVICE ALL RKO& INTERRUPTS. 
971 2% UPON RECEIVING AN INTERRUPT, THIS ROUTINE WILL 
3713 i PERFORM ONE OF THE FOLLOWING SERVICES: 
9715 : x 1.) SERVICE PORT WAS SEIZED BY OTHER PORT 
9716 i+ 2.) SERVICE DRIVER IS WAIT FOR COMMAND COMPLETION 
8717 +" 3.) SERVICE POSITIONING COMPLETION 
§718 *% 4.) REQUEUE COMMAND IF. DRIVE WAS RELEASED 
9719 x FOR THE QUEUED RKO6 DRIVER. 
9720 2% S.) IF NO SERVICE IS REQUIRED, THE COMMAND WILL BE ISSUED 
sel i FOR THE QUEUED RKOS DRIVER. 
9723 1% THREE LINKS ARE PROVIDED TO THE DRIVING PROGRAM. 
3725 taco fates 
9726 x 1.) A.NORM ADDRESS OF NORMAL RETURN (SUCESSFUL COMPLETION OF coMmeND) 
9727 2% 2.) A.ABNL ADDRESS OF ABNORMAL RETURN (UNSUCESSFUL COMPLETION OF COMMAND) 
3728 i 3.) A.CONT ADDRESS OF CONTROL ERROR RETURN 
| $730 1 FOR NORMAL AND ABNORMAL RETURNS, THE ADDRESS OF THE APPROPRIATE 
$731 ii PARAMETER BLOCK WILL BE IN RS. 
| 9733 x FOR THE CONTROLLER ERROR RETURN, THE LOCATION E.CONT CONTAINS 
| a4 33 THE REASON FOR THE CONTROLLER ERROR. 
36 :% ROUTINES USED: 
9737 2 x C.OPT (QUEUED ONLY? 
| 9738 1% Q:PUSH (QUEUED ONLY) 
§739 x Q:.RMOV (QUEUED ONLY) 
| $740 % R.CONT (SEQUENTIAL ONLY) 
| 7a 2% R.NORM (SEQUENTIAL ONLY) 
| 9742 +x R. RENL (SEQUENTIAL ONLY) 
| 9744 +" 1.3) 
| 74s x 1. ISSU 
| aie ii 1.CCLR 
hy rrr itt titi ttt ttt titi tt titi tttt ttt ttit ttt titi t ttt tt 
| 9750 o4ss42 O10S46 I. INTR: MOV RS,-(SP) sSTORE RS ON THE STACK 
| 9751 O45544 010446 MOV R4,-(S5P) STORE RY ON THE STACK 
5546 010346 MOV 3,-(SP) :ST 3 HE STAC 
| 9753 045550 010046 MOV Re, -(SP) *STORE Re ON THE STACK 
| $754 o4S5S2 010146 MOV R1,-(SP) STORE R1 ON THE STACK 
| 9755 o45554 O10046 MOV RO; -(SP) i STORE RO ON THE STACK ; 
| Fe Tees ee EE coere FY REESE ose ‘4Mum gD? URES secisEn 
3758 GierG 030737 001000 002772 BIT and5, T.CSe : ;CHECK TF MULTIPLE DRIVE SELECT 
9760 045600 052737 100000 ooz04e BIS #£.MDS,E.CONT et NU MULTIPLE DRIVE SELECT 
8761 O4560& 004737 051020 JSR PC.R.CONT REPORT ERROR 
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| S2RENS. CNS #RKOG INTERRUPT SERVICE ROUTINE 
75 O4S612 000137 cNTTT2 IMP 1.RTRN s RETURN 
8754 16 105737 003064 1$: TSTB =: I. ISRL sCHECK IF INTERRUPT OR RELEASE 
3765 1410 BEG 6 iO CHECK IF DRIVE AVAILABLE 
acb8 1 BMI 5 CK be EASE COMMAND 
| 976 105! 903064 CLRB ss. ISRL iC C LAG 
768 O45632 900473 SR I.10C CER ShUE PROCESSING INTERRUPT 
| $559 gusEo4 1 903064 S$: CLRB  I.ISAL sCLEAR FLAG 
gc O4564C 900137 o46754 iri 1. ATTN GO PROCESS DRIVE ATTENTIONS 
6773 O4Sb4Y4 032737 OINNDD CO2772 6&5: SIT #NED!UFE, T.cS2 5 CHECK tr PielD NON-EXISTENT DRIVE OR 
Soo o4seS2 001413 BEQ WAIT FEED Bice DUAL ACCESS INTERRUPT 
3776 bubbSH Ol ; MOV ino WALT_FOR Du Access 
O4S5E0 DN, 10g -28 BIC PETBAVISKO RY :KEEP DRIVE BIT 
| 9778 01 003102 MOV PBLK ;STORE PARAMETER BLOCK ADDRESS 
$779 70 Olbe 900000 002770 MOV KCSLtRE), T.CS1 ;LOAD TEMPORARY CS1 FOR STATUS REPORT 
| 3780 76 137 S46164 IMP I. ERRC * REPORT 
7 0 12 10 7S: MOV RKDS(R2),T.0S  ;STORE STATUS REGISTER FOR COMPARISON 
a5es Ruea te piges? eee eats BIT #DRA, 7.05 >CHECK IF DRIVE SEIZED BY OTHER 
are 045716 001041 SNE 1.100 am, OR ONTINUE PROCESSING INTERRUPT 
| are “CHECK IF ANY DATA TRANSFER ERROR EXISTS 
2788 ™45720 032737 164000 002772 8IT SOLT! WCE! UPE!NEM, T.CS2 
f 
9790 945726 001007 BNE s INDICATE ERROR 
\» $731 045730 016237 000014 003006 MOV brea cR2), T.ER ;STORE E REGISTER 
| 9793 : CHECK FOR DATA. TRANSFER. ERROR TYPE ERROR 
| §794 045736 032737 125700 003006 BIT #0CK! OPT! WLE!COE!HVRC!BSE'ECH, T.ER 
| re o45744 001407 BEQ 11S 3NO, WAIT FOR RELEASE OF RKO DRIVE 
| 798 ONS74E 000010 oo3042 108: BIS 8E.UDAT,E.CONT ;SET UNEXPECTED DATA TYPE ERROR 
| $799 045754 004737 051 JSR PCR. CON ;REPOR 
3300 045760 000137 04 IMP 1. RTRN ;RESTORE REGISTERS 
ee02 045764 118:  CLRB W.TIME sRESET TIMING ON THIS DRIVE 
| 9803 045770 003104 €LR W.ORV sCLEBR TIMING COUNT FOR THIS DRIVE 
! oe 045774 013705 003102 MOV PBLKT,RS ; RS of TH PARAMETER BLOCK 
| 046000 052765 010000 op0014 BIS #ORVSZD, P. PRST(RS) aes SEIZED IN THE 
| 9807 ; STATUS REGISTER 
3508 pe0oe 003044 CLR 0.WAIT *CLEAR WAIT FOR COMMAND COMPLETION 
i 730 JSR CR. ABNL ; INDICATE INATION 
3810 O46016 000137 047772 IMP 1. RTRN GO RESTORE REGIS 
Sie O4e022 013705 003044 1.100: Mov 0.WAIT,RS sL0A0 PARAMETER BLOCK ADDRESS INTO RS 
| 9813 OM6026 001002 BNE 2s 1S COMMAND WAITING PROCESSING 
| ON) 
ze 046030 000137 046754 JMP 1. ATTN ; SS ATTENT! 
9817 O46034 013704 002772 2s: MOV T.cS2,R4 ;STORE RKCS2 FOR DRIVE NUMBER 
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O00CS: 38: 
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FESSOR 5 
8 £5e8REN28 
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000014 
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i om) 
; 
4 
SB 


23 2 


amen ee a ns ee $e ee ee 


RERRL SR GLC MU ue RE EE Ee ee asiienaisan iti gists 


BR 

O¥b1GY 21376 002770 GOOD16 1.ERRC: HOV 

PEI Te tee D003 O00%62 1.ERR: HOV 

| O4ES0H 01 MOV 
| Pele 004037 050010 IR 
Gaz76£ 10400 00020 sit 

| Sel BES BES cos es 
Dies Dy 1. RTRN 

12737 00005 002770 NOVB 

O4be44 050072 JSR 
| 04777 1. RTRN 
Purses see 003071 003005 BIT 

| puesee 000020 003042 Bis 

| Sy SSR eae Bue 8 
2a eae Ge 

; Pues Baers? BoLOLD le 38: BIT 

ik 003042 BTS 

a 651020 eR 

O46340 000137 047772 IMP 


oD OS ES. 8S 
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etC<DRVMSK>,R4Y ;MASK OUT UNNECESSARY BITS 


P.ORVN(RS) ,RY ‘Cpe obhr THE NUMBER IS EXPECTED 


3g 


:NO, DRIVER 
SRDALHD,P. CHND(RS) ; CHEEK ECk IF ea ALL HEADERS 
10$ E NORMAL bata Te TRANSFER 
. HDAL $00" EXCEITE SPECIAL HEADER SEQUENCE 
O.WAIT CLEAR WAIT FOR COMMAND COMPLETION 
W. CLEAR WA TI 
W. TIME RESET TINING N NM THis DRIVE 
RKCS1(R2) gT-CS1 jSTORE C0 BND STATUS REGISTER 1 
rena : ives, paces 
RKASOF (R2),T J,AG0F 53 ciatoree ON SUMMARY 
INTHSK, T. -ASOF +1 CHECK F DRIVE TOU ENT ION SET 
PCR. NORM : INI ROTCATE NORMAL Re TURN 
I. RTRN Bete REGISTERS 
SUEXATT,P.PRST(RS) ;SET UNEXPECTED ATTENTION 
PC,1.CSTS sSTORE CONTROLLER STAT 
1.ERR : STORE gR ATTERN AND POSITION INFORMATION 
T.CS1,P.CS1(RS) sGET ERROR R RKCS1 
Retsil is Ae I OF CONTROLLER STATUS 
RKECPS (Re Re) ;P ‘Eros ia) fs F TORE STore ECE Pos POSITION 
aNED!UFE,P. esac CK IF TEN WAS NON-EXISTENT DRIVE OR 
nite FIELD ERRO ERROR 

Ro, I. STAT She te DRIVE Stor STATUS 
#OR.CLR,1.CS1 i 
RO, 1. 1SSuU CLEAR 
INTMSK, T.ASOF +1 CHECK IF cATTENTION RESET 

.CLAT,E.CONT ae BiD NOT RESET 
PC,R. CONT 
I. RTRN $60 Ob RESTORE ResteTERe 
#3.DSC, T.MR2 sCHECK IE IF DRIVE STATUS CHANGE CLEARED 


aia acca 
PCR COAT t eat BeaIN Eo 


spt DR CONT 
I. RTRN RET URN 
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DZRSNB. CMB T SERVICE ROUTINE | 
9874 
3875 4 032765 ooo020 o00014 &$: BIT SORVHRD,P.PRST(RS) :CHECK IF HARD DRIVE ERROR 
877 pies5y 0 geo000 003014 aha a5 PIP, T.MR2 ge RIVE TS CYCLING DOWN 
378 ; abists 14 Bre 18 p.t TRE) oR 
23 sic 113737 003071 ieee MOVB Int ok. H. ihe tse Up 5 OR ONDS FO pons DRIVE TO CYCLE uP 
9g8: O46 013737 54 003104 MOV 
388 046408 007137 047772 INP H Bee + GO RESTORE REGISTERS 
§s84 pveule 004737 50774 10$: JSR PC,R. ABNL :G0 REPORT ERROR 
eee S416 000137 2 IMP I. RTRN :GO RESTORE REGISTERS 
| 9887 .SSTTL #READ ALL HEADERS INTERRUPT SEQUENCE 
se58 =: O¥6422 016237 000000 002770 I.HDAL: MOV RKCSI1(R2),7.CS1 ; STORE CS1 TO CHECK CONTROLLER 
$891 046430 032737 100000 002770 BIT BSCERR,T.CS1 ‘CHECK IF CONTROLLER ERROR 
x 046436 001422 BEQ c$ =NO, CHECK FOR ATTENTION 
S894 O4E44O 003044 CLR O.WAIT ;CLEAR WAITING FOR COMMAND COMPLETE 
9895 O46444 CLRB sd. TIME sRESET TIM aut chon DRIVE 
aes Pueaes r a o0cc16 aah 4 ORY P.CSI(RS) sCLEAR Ms 
289g paeaes paces ede JSR pet esis rey TORE PROrLER: REGISTERS | 
9859 ONeHEE 050010 JSR RO; I.CCLR : 
a0 tara 1.RTRN H URN 
1 74 050774 JR PC, R.ABNL > INDICATE ERROR RETURN 
a5 046500 047772 IMP I RTRN sRESTORE REGISTERS 
046504 & 903004 Ss MOVs RKASOF(RS).T.ASOF :STORE ATTENTION 
9scs Pees ise poop 003005 BITE INTHSK,T T. ASOF +] 1 che F oct et ION ISS SET 
ad 003044 CLR  O.WAIT CLEBR WAL TING F CORNER. ECRPLETION 
9908 046526 CLRB Ss. TIME RESET TIMING onB DRIVE 
9359 Dibba 108 CLR W. ORV *CLEAR TIME OUT COUNT 
3310 1 IMP 1.ERRA >G0 REPORT ERROR 
1 7S: MOV HOR. AD, RI sGET MAIN MEMORY ADDRESS 
3315 Papeue raced MOV RKDB(Re), (R1)4 iE FIRST WORD OF HEADER 
9914 MOV RKDB(RE), (RL }+ iGET WORD oof HEADER 
9915 MOV RKDB(Re) (R1)+ ; RD WORD OF HEADER 
Qslé MOV R1, HOR.AD * STORE RODRESS FOR NEXT 
| 9917 902772 Hoy RKCS2(R2),7.CS2 ;STORE CSe CK FOR DATA LATE 
a8 1 2 BIT sOLT,T.CcSe2 * CHECK TA LATE 
i 491 BNE 35§ : ERROR 
1 1 a, waaete peep. CT : ECRERENT SUES ScuE Neat READ KenpeR 
| 1 CLR 0.WALT *CLEAR orives a Eng FOR si NO COMPLETION 
50: Et Rg 4 Ne sctERR hae ME ON THIS DRIVE 
| 9925 000026 MOV 83,RKMRI(R2) LOAD MAI REGISTER FOR SECTOR COUNT 
| Be oie ie On Neem ec es) 
“RTRN 7B 
| 9929 O46650 013765 003016 oj00se MOV T.MR3,P.B11(RS) ;LOAD SECTOR COUNT 
} 
[ 


ee a ee ere a ee -- oe eee - me et 


mente Ng 


004737 
000137 


oa777e 


003006 


10 003042 


SUMMA EMINNNNI TN Niesrranass ansas Y 


3 


000014 


o4 032737 

710M 000137 
047110 
047116 


ET. UES RSE EASES! 


i nr _—_——S 
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ADERS INTERRUPT SEQUENCE 





. SBTTL 


I. ATTN: 


1$: 
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ISR PCR. NORM sTNOICATE NOR pg ERNINAT ION 
IMP I. ATRN STORE REGIS 

V P. N(RS) ,RKDCYL(R2) S REGISTER 
ney BSR RADE LBAD SEETOR ano foe ls 
MOVB P’CEIHIRE, *P.CS1+1(R5) ;STORE BITS B18 OF °S1 
Bic 8tC<COT!CFAT) .P.CS cs tks CLE LEBR ALL BITS EXCEPT FORMAT AND 
MOVE - sSROHEAD. P.cS1c RS! et COMMAND ISSUED 
MOV P.CSI(R5),RKCSI(R2)’ : ISSUE READ 
IMP I. RTRN sRESTORE REGISTERS 

I 8€.DLT.E.CONT DATA LATE WHILE UNLOADING HEADER 
hi PC PLE RED oRT . 
IMP I. RTRN RESTORE REGISTERS 


#DRIVE ATTENTION SCANNER 


MOV RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS 

BIT aCERR,T.CS1. CHEER TF CONTROLLER ERROR OCCURRED 
BEG iar ?NO, Cube Ge ATTEN IER a4 
“CHECK IF ANY DATA T TYPE ERROR EXISTS 

BIT BOL TI WCE! UPESNEN f coe 

BNE 1S s INDICATE ERROR 

MOV ArER(Re). T.ER ;STORE REGISTER 

CHECK FOR DATA TRANSFER ERROR TYPE 

BIT 8DCK! OPI! WLE!COE!HVRC!BSE!ECH, T.ER 

BEQ 2s ;NO DATA TRANSFER ERROR 

BIS #E.UDAT,E.CONT ;SET UNEXPECTED DATA TYPE ERROR 

ISR PC. R.CONT : T ERROR 

IMP 1. RTRN *RESTORE REGISTERS 

MOV T.cS2,.R4 ;SAVE CS2 FOR REGISTER NUMBER 

BIC 81C<DRVMSK>,RY ;STRIP OFF JUNK 

CLRB 4s WF TIME : WATCH DOG TIMER 

CLR Wl. *RESET TIMER VALUE 

NOV PBLKT,RS : TER BLOCK ADDRESS IN RS 

CLEAR DRIVE POSITIONING AND DRIVE POSITIONED FOR DATA TRANSFER 

IN PROGRAM DEVICE STATUS GISTER 

BIC #DRVPOS! T,P.PRST(RS) 

IMP I.ERRC ov REPORT ERROR 

BIT #DI,T.CS1 CK IF ANY DRIVE ATTENTION 

BNE ve PROCESS INT 

J 1. RTRN STORE REGIS 

MOV RKASOF(R2), T.ASOF ;STORE ATTENTION SUMMARY 

TSTB ASOF+: CHECK IF ANY ATTENTIONS SET 








SB ra! LAER ELREN © Pm 2 


se raat feck coso42 1§ 
>] 737 ated IR 
9389 ON7196 OOUIS7 047772 INP 
9331 0W71N2 139737 003071 003005 7$: BITS 
fe ig tere pe me 
Saze BuSieG BBaras payee JHP 
3337 047170 01 o03102 8S: MOV 
693 ON7174 11 MOVB 
9499 ata bae7es 620000 000014 BIT 
100890 047205 O0140S BEQ 
a 047210 000137 047672 IMP 
ioe Busses BoSres Bopree Coocl4 11s: Bie 
itis freee ever Ooo our =e 
ee Beg te Em 
iopos | pNSeB gieres pees | BooONS BT 
HOTT GMTSEB BeRMEL BR 
a 
ingle 
10013 O47262 O1 14 QO0040 128: MOV 
10014 Bier need 000040 BIT 
10015 047976 001004 BNE 
1pOLS GATSRe Beowne CotO0e coool BA 
1001 
ino18 W730 112737 0000 002770 138: NOVB 
1 1. RTRN 
Lagam F; 
ie 4 
ee Beg ue Ot GB 
100s | ON73He 003042 BIS 
10027 047350 004737 051020 JSR 
10028 ON7IeH O03? ON777e ThP 
10030 047360 013765 003014 OD0040 15S: MOV 
10031 047366 9276S OHO000 000040 BIT 
10032 001404 BEQ 
is Brae Ose7e= 000040 000014 BIS 
1 est | 
1 168: 
[age “ F 
a BR 


| 


7s 
#E.NOAT,E.CONT 


INTMSK,T.ASOF+1 ; 
#E.UATT,E.CONT 
R.C 


RS) 


a 


notes 
z Bm 
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HEEF NO RTTENTION IN ATTENTION SURIARY 


REPORT 
80 RESTORE REGISTERS 
TEE Gb PROC IF Deedee oe" 
:SET *UNSOLICATED AT ATTENTION 


88 RESTORE. REGISTERS 


STORE PARAMETER BLOCK TABLE 
STORE DRIVE 

ee IF DRIVE UNLOADING 
ICE ORIVE IN POSITION AFTER ERROR 
;RESET DRIVE POSITIONING 
MAINTENANCE REGISTER 1 


CT DRIVE WITH ATTENTION HIGH 
RETURN 
io ie BYTE O00 MESS B 


a’. VE_ FAULT 
DRIVE STATUS CHANGE 


3 


a 
: 


x: 
a 


INTENANCE REGISTER 2 


re 
Ban 
gine 
Migs 
me 
D 


j STORE A 
YES, ¢ PME 2 CPT PROC PROCESSING 
ID NOT RESET 
urTH BRIVE 
FLAG ERROR 


5 FARE nL 


RESTORE RE REG 


peel COMMAND COMPLETE TION 


Wet 
yd 











1 
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10042 ; .SBTTL #ATTENTION ERROR HANDLER 
4 I.AERR: T, T(RS) N PR 

10044 000014 I.AERR: BIC SDRVPOT, P.PRST(RS apeset POSITIONING IN PROGRESS BECAUSE 

10046 CLR8 sw. TIME CLEAR TIMING FOR THIS DRIVE 

10047 CLR W.DRV ‘RESET WATCH-D00G TIME 

ot Wee Bre "3 T dat CS1¢RS) KEEP Com MP ORTROLLER STATUS 

10050 eeeats Bt F Ral 6 S1(RS) :MAKE GOOD MESSAGE - 

1005 MOV T.¢oe,p.Coe(Re) *STORE CONTROLLER REGISTERS 

my Feeataaetgy 

1 000026 MOV TBA’ P:BIStRE) 

10055 MOV T.0C;P.DCYL(RS) 

10056 MOV T.ASOF,P. ASOF (RS) 

i 000036 HOY 7-BR EERE) 

1 JSR ROT’ StBT ; GATHER DRIVE STATUS 

10060 I RTRN iFeoe RETURN 

1006 002770 MOVB BOR, CLR T.CS1 COMMAND 

ittee TSR oy ,1.ISSU DRIVE ERRORS 

in0es ea 003005 pire INTHSK, T.ASOF#1 ‘age TF ATTENTION RESET 

1 003042 BIS #E.CLAT,E.CONT :SET ATTENTION DID NOT RESET 

tee +5] JSR PC GeO OAT : 

10068 INP 1. RTRN *RESTORE REGISTERS 

i aor 000014 2S: grr #ORVHRD, P. -PRST(RS) :CHECK IF AHARD DRIVE ERROR 

1007 003014 BIT 4S PIP, T.HRe CHECK TF IF DRIVE IS UNLOADING 

10074 000014 BIS 8£.UNLD,P. pest ne) oF ORIVE UNLOADING DUE TO ERROR 

10075 003070 MOVB = INTNSK,W. TIME eT TIMING ON THIS DRIVE 

10076 003104 MOV W.8SEC.W.DRV SECONDS FOR CYCLE UP TIME 

i IMP I: RTRN iL Dae REGIS 

ree: 10S: JSR PCR. ABNL sREPORT ERROR 

10080 IMP 1. RTRN sRESTORE REGISTERS 

1008 -SBTTL ERROR CAUSING DRIVE TO UNLOAD 

tees 000014 I.UNLD: BIS #E.UNLD,P.PRST(RS) :CLEAR DRIVE UNLOADING BECAUSE OF ERROR 

10085 002770 MOVB  #0R.CLR.T.CS1 sh 00 N DRIVE CLEAR 

1008% 138 on RO,1.1Ssu" DRIVE CLEAR 

19088 003005 BiT8 ryTsKcR) 7. ASO weer" 3 CHECK ce ATTENTION CLEARED 

1 003042 MOV #E.CLAT,E.CONT ; DID NOT RESET 

tees JSR PC.R. COAT *REPOR 

100% BR 1. RTRN RESTORE REGE REGISTERS 

10034 003014 1S$: IT #S.DSC,T.MR2  ;CHECK IF DRIVE STAUS CHANGE RESET 

1 BEG *YES. CONTINUE 

10096 000014 BIS #ORVOSC,P.PRST(RS) ;SET DRIVE STAUS CHANGE DID NOT CLEAR 

10097 20S: CLRB  W.TIME SRESET T TIMING ON THIS DRIVE 








paren S A WSL SUBSYSTEM VERIFICATION : PART 2 


#ERROR CAUSING OR 


Barre boars? OS0774 


Bae 


23 
-— 


0-2 0-2 bao bane ne fe fae me Pw Game 
OO0O00000 

+ = 0 0 
BUFRLER 
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W. ORV ;CLEAR TIME COUNT 
PC,R.ABNL sREPORT ERROR 
(SP)+,R0 sRESTORE RO 
(SP)+,.R1 sRESTORE Rl 

(SP sRESTORE Re 

(SP . 

+4 + 





perenee ce RRB LL PODS 


aS 





DH8 Get Pao b= fe 8 ht Ps Ps Pent Bo ns + ne b= Bs fae bs fo Bs hs ho bo Bo fh hn fo fe Pa bo phe pe 


ONOOOOOOOO00000000 


j R —-Ore 
~- 
= i 
Cn 


e 


1 
1 
1 
1 


— 
WwW 
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-S8TTL #CONTROLLER CLEAR ROUTINE 
| EHHEHHHHEHEHHHEEHHEHHHHETHEHHHHHEHHB HEHEHE AEE HEHEHE 


FF 

ty THIS ROUTI D R a LEAR THE C 

i D CHECK I The CONTROLLER ERRORS. g-¢ IF THE ERROR 15 NOT 
;# THE ROU TINE AS SPECIFIED IN A. cant WILL BE CALLED wW 
ii et Rca CUR SET IN E.CONT 

is REGISTER USE 

* 

i Re ADDRESS OF RKO& REGISTERS 

33 RS ADDRESS OF PARAMETER BLOCK 

*#CALL JSR RO, I.CCLR 

i <ADDRESS OF ERROR RETURN 

* RETURN 


ririiiiitiiitiiiiiiiitititititiiiitittittititieiittetirret ies s] 


I.CCLR: MOV #CCLR RKCSICRE) 5 
HOV racay the) 1; 


TORE COMED AND, STATUS. REG _ 1 


BI 
ERROR 
BEQ S$ RETURN TO DRIVER PROCESSING 
BIS #E.CCLR,E.CONT SET CLEAR CONTROLLER DID NOT CLEAR ERROR 
1S PCR. CONT *REPORT ERROR 
MOV (RO) RO >SET UP ERROR 
RTS RO * RETURN 
S$: MOV ee 


PGSACP®? ET INTERRUPT ENAGCE ISSUED 
¢ :BJUST FOR NORMAL RETURN 
§ 
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. CNB ¥COMMAND ISSUED BY DRIVER SERVICE ROUTINE 


-SBTTL #COMMAND ISSUED BY DRIVER SERVICE ROUTINE 
3 HHBHHHHBHEHHBEHBHHHHEEHEH HEHE HEHEHE IEE 


if 

THIS ROUTINE WILL ISSUE THE COMMAND AS SPECIFIED IN T.CS1 
AND CHECK IF A CONTROLLER ERROR OCC . IF A CONTROLLER 
ERROR OCCURRED, E.CERR WILL BE SET IN E.CONT AND 
CONTROL WILL BE TURN OVER TO THE ROUTINE SPECIFIED BY THE 
ADDRESS IN A.CONT. 


USE 


ADDORESS OF RKOG REGISTERS 
ADDRESS OF PARAMETER BLOCK 


RO,1.ISSU 
OF ERROR RETURN» 


OoOoO000900N000 


ee ee ee me et bb be Oh 
SESCCSAACSLASAASSSs am 


5 p LHRELALELALELLALELLLALLL LAE LLALELE LERLLFLLALALELE 
| I. ISSU: we T. 1-€3), »7 (SP) serene COMMAND te ce. 
[MISE HE PRIS coneo 
serie ee EY EBS B.S cer 
Leen LF ES, 


fs PT °eS1 Get TF C a ERROR OCCUERED 


Sens ede PATRAS SEED coon 
BROT LHF Act 
RETURN 


-CHECK IF ANY CONTROLLER ERROR IS SET 
BIT #CTO!SPAR, T.CS1 


!PGE? NEM! NED! UPE!WCE!DLT,T.CS2 
SiLCIDTVESPHTE! ECHIBSE HVAC? COE? DTE! OPT!0CK, T.ER 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


COOOCO0000000 
ef 
i 


i 


cm & 


iy eee 


#OR.CLR, (SP) ;CHECK IF CLEAR DRIVE 











10200 oS0e4e 


DEREN-B = RK611/RKOG SUBSYSTEM VERIFICATION : : 
DZR&NB. CNB #COMMAND ISSUED BY DRIVER SERVICE ROUTINE 


fre poe 000014 


3$: 
OOS 766 ooo100 oo0coo SS§: 
000200 


052737 001000 O03042 7$: 


004737 051020 
110 
000200 


10S: 


PART 
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BNE : = ral 0 NOT © NOT SET DRIVE HARD ERROR 
a3 a Yee . nl TSsue AC HARD BRTRBLEER e CLEAR 
MOV SIE, RKCSI(R2) 7 AaTeRmuer ENABLE 

TST (SP}4 





TST (RO) ADIT RO FOR NORMAL RETURN 
RO ; RETURN 





BIS #€.CERR,E.CONT 





‘SET CONTROLLER ERROR DURING 
R SERVICING 







: DRIVE 
JSR PC, R.CONT REPORT 
TST ‘SP)+ sADTUST TACK 
MOV (RO) ,RO ‘ADJUST RO FOR ERROR RETURN 
RTS RO : RETURN 
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OZRENB. CNB *STORE RK611 UNIBUS REGISTERS ’ 







10218 /SBTTL *STORE RKB11 UNIBUS REGISTERS 
10817 ; ca tac a a at a et 
10219 fe THIS SUBROUTINE IS CALLED BY THE RKOG ORIVER TO STORE ALL 
10820  -RKBLL REGISTER IN TEMPORARY LOCATIONS. 

352 ;#CALL JSR PC,1.STOR 

10883 t RETURN 

10224 i* 

ie ;# REGISTER USE 

1 ie 

10888 je Re ADDRESS OF RK611 REGISTERS 

ine : 5 ERHRRAELLLELHES LARA LLLE LAL LAL RALE AL EERE REEAEERERE RA RARA LEER ERE 
10232 050314 016237 000000 002770 I.STOR: MOV  RKCSI(R2),7.CS1 ;STORE ALL CONTROLLER REGISTERS 
ibe Gee fee Bee eB (ge REA RHE 

oes 0503 016237 O00 003000 HOV 

10537 05035 1 MOV 

10638 Giese Gonos Gistke HOV 

idea Osos Oles37 ooDuee GosoDs HOV 

10644 O16237 00002 003012 MOV 

1oe43 DSO Bless? Dobbs DOs01e HOV 

ee ie me me | 

TeeHe 60840 O00S07 RTS 





me a ee ee eee ee 
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1024? 
10248 
ee 


SHON ina 


7 


SUSE G ERE 


.CMB 


*STORE CONTROLLER STATUS 





-SBTTL #STORE CONTROLLER STATUS 
7 HHBHBE HEHE HHEHHEHHEHEH HEHEHE HEHEHE THEE 


i THIS SUBROUTINE IS CALLED BY THE RKC6 DRIVER AT PRIORITY 7. 
i THE FOLLOWING REGISTERS WILL BE STORED: 
x COMMAND AND STATUS REGISTER 2 
Be ieee atta 
tx Bee RED K ane SECTOR 
1% STATUS REGISTER 
tx ERROR REGISTER 
2 x ATTENTION SUMMARY/OFFSET REGISTER 
33 CYLINDER ADDRESS REGISTER 
CALL JSR PC,I.CSTS 
# RETURN 
;3 THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN: 
2 
ii REGISTER CONTENTS 
; eT See fee cee te en ee ce 
Le 
* x R2 RKO& BASE ADDRESS 
is RS ADDRESS OF PARAMETER BLOCK 
3s 5 RERALLALALLLELE LAER ERE LALA RE LALL LALA LALA LEAS REALL ALE RE RELL ER EEE 
000016 1.CSTS: BIC #177741,P.CS1(R5) CLEAR A BITS EXC FUNCTION 
002770 IC #36,T.CS1 ;CLEAR FUNCTION oF CS1 STATUS 
00001 BIS r col P.CS1(RS) GENERATE CS1 STATUS INFORMATION 
I.CST1: HOV RKC eRe). CSe(RS) STORE COMMAND pI REGISTER REGISTER 2 
Se AS Oe 
MOV BKDS CRE) 'P: DStRE) a Ore Drive 8 STATUS R Track, 6h SEC 
MOV RKER(Re).P.ER(RS) 
MOV RKASOF (R2) , P. ASOF (RS) tT ORE BTTENTION TR TERARY AND 








RKDCYL(R2) ,P.DCYL(RS) STORE CYLINDER ADDRESS 
PC * RETURN 
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OZRENB. CNB 


See 6 


Be hee 


1 


~ 
8 
- 
Lo ] 


Basiaasiae 
WOnNWU£Wwry 


Rs 


oes On ee a 
a es Be 


ata 
BEN 


MY 


nt = 
ADE 


Ieee cos UO TEROO SS. 


Pe hs be bee et ee Be Be fe Be Re fe Be be Be he be fe be bh pe 


aaa 





¥GATHER DRIVE STATUS 


: 


PART 2 


000026 I.STAT: MOV 


002770 
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.SBTTL GATHER DRIVE STATUS 

H ee er eae 

+ THIS SUBROUTINE. WILL BE USED TO GATHER DRIVE STATUS 

2% BYTE Ot i Dil. IT Is ASSUMED THAT THE DRIVE 

x HAS PREVI BSLY BEEN SEIZED RUNS AT PRIORITY 7. 

**CALL JSR .STAT 

ri <ADDRESS Roe ERROR RETURN> 

i# RETURN 

if THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN: 

+] 

°% 

is REGISTER CONTENTS 

2% 

1 Re RKO& BASE ADDRESS 

ii RS ADDRESS OF PARAMETER BLOCK 

* x ROUTINES USED: 

i 1. 1SSU 

; 5 SHRAERAELLALERLLA RAL LLELALL ALE LAL LALELALLLLLLEAELELE LEE LELE KEELE 

#1, RKMRI(R2) sLOAD MAINTENANCE REGISTER 1 

MOVE «-#DR. SEL. T.CS1 ; on conan Oe 
Jar RO,1.1SSu" a rsfaTUs BYTES 01 
MOV T. MR2,P.AD1(RS) sERROR STA BYTE ot NESS A 
MOV T.MR3,P.B01(RS) STORE STA $B 
MOV #2, RKMRI (Re) ioe ACE REGISTER 1 
antl ian all STATUS BYTE 10 
Jor RO, iPTSsu" T HOEY STarUs @YTES 10 
MOV .MR2,P.A10(RS) T 10 MESS A 
MOV 1 hes P.BIO(RS) ee Hl Hk Bre Q HESS B 
MOV #3, RKARI (Re) REGIS 
MOVB #DR.SEL,T.CS1 oe 1s av . 
ISR RO, 1.ISSU ;GET STATUS BYTES 11 
pee aia ee HO ae IL 8 
CLR RKMR1tR2) sL ORG NBT RTERARCE REGISTER ; 
MOVB #DR.SEL,T.CS1 i Lon oF Sane Oe 
JSR RO, 1. 1S5U ;GET Rod eet poly 00 
MOV T.MR2,P.AOD(RS) hope D MESS 8 
MOV T.MR3,P.BO0(RS) ST TR D MESS B 
BIT #5.PAR,T.MR3 “Ci a DETECTED BY DRIVE 
BEQ S$ hoe CT CTURN NORMALLY 





















DIREN-B = RKG1L-RKOG SUBSYSTEM VERIFICATION : PART 2  MACYI1 27(732) O3-NOV-76 21:42 PACE 222 
DSRENS. CNS MBRTAER DRIVE. STATUS 


10348 oOSO744 052737 c02000 o03042 Bis aE. DPAR,E. CONT s INDICATE BAD PARITY DETECTED BY DRIVE 
10349 pe07ee Se 051920 ISR R.CONT {REPORT ERROR 

1 11000 38: MOV (a0), ‘LOAD RO FOR ERROR RETURN 

i 050769 000200 RTS * RETURN 

} oso762 oS2765 001000 900014 S$: BIS cosa nae :SET PARAMETER BLOCK STATUS VALID 
15 950770 720 TST (RO}+ sBOJUST RO FOR NORMAL RETURN 

10355 ; 5200 RTS 9 *RETU 





ee ee eee te ee se ee ee ce cere ene ne cere ae a eee eee 
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Rees 


ase. <0. aise ee~meee > etna 


PREN“-B = RKG11/RKOS SUBSYSTEM VERIFICATION : PART 2 
5S CNB #COMMON DRIVER RETURNS 


*#COMMON DRIVER RETURNS 
T FUTURE DRIVE INTERRUPT REPORTING 
E ABNORMAL RETURN 


FUTURE DRIVE INTERRUPT REPORTING 
Hare DOG TIMING CN THIS DRIVE 
TIMING COUNT FOR THIS DRIVE 
Are CONTROLLER ERROR RETURN 





me ere ee ee eee eee 





#COMMAND INITATOR 

-S8TTL #*COMMAND INITATOR 
Bae 5p RARER REERER ERR EEEEE EEE EERE EEE EE ELAR EE EEE SERA E EES SEER EEEES 
THI TINE WILL INITIATE ALL COMMANDS AS SPECIFIED 


BY COMMAND FIELD OF THE Ay BLOCK. THE FC_LOWING 
SPECIAL COMMAND ARE ALSO EXECUTED 
CL 


aoe 


<p po 


C 
SUBSYSTEM CLEAR 

READ ALL eae STATUS 

READ SPECIFIED HEADER 

THE ABOVE COMMANDS ARE TRANSLATED INTO A SEQUENCE OF COMMANDS - 


JSR PC;C. INIT 
(ADDRESS OF PARAMETER BLOCK> 
RETURN 


FOR THE SEQUENTIAL OPERATIONS, THE DRIVER WILL LOAD THE 
LOCATIONS, PBLKT AND INTMSK. 


Oe Ee oe ee ee 


O26 §-< Po Bb = 0 - Bo BH Bo He 
e@eeee ee eeee ee ee ee ee 
= 


Cd ed ed ed ed eed ed eed 


Bue erryerer i il yids eee 


PP reriiiiiitiiiiititititritititiititiitititiitrtt titi titi ttt ts 


C.INIT: MOV RS,-(SP) ;STORE RS ON STACK 
RY, -(SP) STORE R4Y ON STACK 


za 
7 
a) 
eenees 


BEees 
DOU 
R 
ra 
3 
$ 


args 


3BSSSS55S3 
o3 
o 


R 
3 


NTMSK" 


PARRPE TER BOK BLOCK TABLE 
pes 
) UW. TIME ; 


TCH-DOG TINEA FLAG 
L880 WATCH-DOG TIME 


RKBAS , Re ;LOAD R2 WITH RKO& ADDRESS BASE 
ITS IN PROGRAM DEVICE STATUS REGISTER EXCEPT 


WE WRITE HR ERITE CHECK 


IVE FROM TEST SEQUENCE 
INHIBIT BUS ADDRESS INCREMENT 


Ce el ee oe od oe ee ee eo a or ey 


RK RKRRRRRRRRRRRRRRR 
S RisaeeISeraOarz 
ao 
sees 
: 
Sghe 
it 
| 
: 
mi 
af 


E 
3 3a28 
gs 


z 
4 
sof 
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OZRENS. CNB 

! 

: 

| 

| 


. R= & = 62 Bas f= G2 8 ho f= Fue Po 8-0 bs = Bh = Bs B20 b-2 G2 } on Be 0 Bs 


ae 
Sik 


PRRRUSE SER TORS Soe IRASE 


2 
§ 





pom ee wee ee 
. 


De se i nn ne ee 





1 

Be Bit 
Be Bil 
BS i 
ee Bi 
ies SH 
10444 

ieee 0S1224 
iene 

aes 

ipaee 0S1232 
ies 

ee 

10456 

Be ie 
10459 

ieee 

1 

ibs 

1 

10467 

10468 

10469 

104 

1 


Be 
23nN— 

ATRRR FARRAR ARRRARTR 

eee RENEE BRUNER? 


ne ee ee es 


ie tioce | 


8 


Si en ataabies ) eh Mm RIFICATION : PART 2 


075176 000014 


000016 
o0cdbe 


poaue0 


Tse7es Q00080 000001 


0S1734 
000107 000001 


000117 000001 





Do0008 

000115 000001 
poodse Goodie 
000111 


000001 6$§: 


— BaaRg Thee BE 
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#tC<DRVUSE!W.WCK! NOCHK! DRPDRV!DTBAII> ,P.PRST(RS) 


pos! + BIORE TER BLOCK ADDRESS 
#P.CS1,R0 OE ee FIRST ples TO BE CLEARED 
py *STORE P a EN K ADDRESS 
aP.EPAT,R1 CALCULATE LAST LOCATION TO BE CLEARED 
(RO)+ 

ABR iGheck FF FINISHED © 

1$ RETURN PARAMETER 

I. ISRL in OR INTERRUPT ISSUED 
RHE P. Sle sSTORE DRI 


DRIVE NUMBER 
mai fe ;CLEAR RKO& MAINTENANCE REGISTER 1 
tals, P. CMno Rs)’ ;CHECK IF SPECIAL COMMAND 


PROCESS 
C. SPEC JUMP TO SPECIAL COMMAND PROCESSOR 
SUNLOAD,P.CMND(RS) ;CHECK If POSITIONING COMMAND 

- START SPINDLE 


; RECALI 
; OFFSE 
: SEEK 
% 


ess ;NO, ORIVE COMMAND 


; CHECK if DATA TRANSFER 


BSEEK,P.CMNO(RS) 
20$ s YES, DATE TRANSFER COMMAND 


CK 


Rah, 


Belle ono BERL Ber 


NCRS), macy ab ii OrO CYLINDER ADDRESS 
B° cree )RKDACR2) SECTOR AND TRACK 
85 :60 EoD SECTOR 


SOFFSET,P.CMNO(RS) ;CHECK IF OFFSET 
3NO, CHECK pon OAD 


at 
P° “RS Re Ri pasate Roky REGISTER 
as enaeg) I 


TSPL,P.CHND(RS) sCHECK IF START SPINDLE 

NO. CHECK I IF RECAL 
W. BIN W.DRY BAD WATCH Dog IME FOR 1 MINUTE 
ake AL, P.CHND(RS), CHECK IF RECAL 








Benena- che“ “SGBMRAND INTATOR : PART 2 










.SBTTL 
000001 C.SPEC: CMPB 


IRS SBS OEE ONS BUOY as, Hil 
Ibe petias Adosee 165777 00001 — BIC 
Lose 951¥10 11565 oc0001 900016 Nove 
104 1 rnin cant Bt 
1049 14 rl BEQ 
ines 1434 900100 00001 BIC 
1 1442 01 16 pp0008 MOV 
10494 1480 N23 1 10$: JSR 
1c495 051 1 002770 . MOV 
10436 Ibe 002770 BIT 
rt 1470 001767 BEQ 
10498 051472 032737 100000 002770 - BIT 
10499 051500 00101 a ce BNE 
HY BIS Bee BENE oom i 
ites ieieee 13732 003071 003005 BITE 
ee ees ie gee 
10506 peiesn 004737 051006 JSR 
10507 051540 000137 052714 IMP 
ines OS51S44 016562 000010 O00004 20S: MOV 
10510 Oo 1552 g165be 00001 900002 MOV 
ipeis feteee DIeeES HOV 
1 1566 O01 000006 MOV 
10513 051574 000131 000001 CMPB 
10514 051602 00101 . BNE 
1051S 051604 pog200 000014 I 

10516 l6l2 OO14O4 BEQ 
1051 1614 000123 000016 MOV 
10518 0S! BR 

peda 1 1 16 25S MOVB 
ave8 eeat 4 

} ibae i rennet are 
1 1 il 000017 26S: HOVE 
1 16% 1 l 000017 BI 

ipeod 

ioese 1654 003044 MOV 
i 134 eed 
1 1e58 S 
1 1676 MOV 
Ipese pene BO 
1 1714 BIC 
peas beizee Ov 
be 1730 JMP 
1 

1 

10539 
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W.8SEC,W.ORV _ ;LOAD RECAL TIME FOR 8 SECONDS 

P.CSIHURS).P.CSIF1(RS) ;STORE BITS 8-15 OF CS] 

BtCcCPMTICBT) ,P.CSI(RS)' 3 ALL BITS EXCEPT FORMAT 
T 


P.CMND(RS).P.CSI(RS) ; 


, OMMAND INTO CS 
ail, WK, P. PRET (RE) sRESE WRITE FOR WRITE CHECK 
#NOCHK;P.PRST(RS) :CHECK IN NO CHECK Hobe 
30$ NO, SKIP CLEAR OF INTERRUPT ENABLE 
#IE,P.CSI(RS) :CLEAR INTERRUPT ENABLE 
P.CS1(RS),RKCS1(R2) ; ISSUE COMMAND 
PC.W.WTCH sCAL{ WATCH DCS TIMER 
RKCSI(Re),T.CS1 ;STORE COMMAND AND STATUS REGISTER 1 
sROY, T.CS! WAIT FOR READY 
ACER, T.CS1 sCHECK FOR ERROR we 
PC AH WTCH ic GATEH Bos at ' 

NTROK T AgOF ie ais He HAS OCCURRED 

t Ppmiute Pag: I 

be me : NING BN re OR IVE 

W.ORV *CLEAR DRIVE TIMING COUNT 

PC.R.NORM ? INDICATE COMMAND IS FINISHED 

C.RTRN sRESTORE REGISTERS 

P.BALO(RS),RKBA(R2) :LOAD BUS ADDRESS REGISTER 

P.WC(RS) .RKWC(R2) :LOAD WORD COUNT REGISTER 

B-CYLN(RS), (Re) sL ORD. ADDRESS REGISTER 

P.SECT(RS) (Re) ;LOAD SECTOR AND TRACK NUMBER 
CHK,P.CMND(RS) CHECK IF WRITE CHECK COMMAND 

25s NO, GO ISSUE THe 

HH.WCK, PRST (FS noi G0, Sua TE Cor SHOULD BE ISSUED 

SWROATA,P.CSI(RS) ; ee 

2s OC : it CREED 


(RS),P.CSI(RS) ; INTO CS1 
P.PRST(RS) ; WRITE FOR WRITE CHECK 
Pcsh URS), ¥ eat i BITS At OF CS 
#¢C<B.CFNT!B.COT!8. Bale! BRI?) P 141(RS) ;CLEAR ALL BITS EXCEPT 


of al nde FOR COMMAND 


RS.0.WAIT 
TRAIT, P.PRST(RS) s CHECK aca BUS ADDRESS INCREMENT 
1,P.CS2(RS) tt INHIBIT BUS ADDRESS INCREMENT 

P.CS2( R2) sLOAD 


pRSTiRS) CK INNO. CHECK NODE 


| peels oe 
Pat ia Bade i ne cali 


GISTERS 


#SPECIAL COMMAND PROCESSING 


#ROSTAT,P.CMND(RS) ;CHECK IF READ DRIVE STATUS 
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PRGLI/ARP RIAL COMMAND PROcESeING’ Ten! 


BeRene. 


% 

& 
ee 
2% 

B iti z 

3 g wy & & : 

ms S Ee & 

% 8 a = ge & 

a 8 5 g 
ae 
Shon GE tteteSeee 2 Se 
te [ue 
QoQ -_ aa 
eo Po eee 
Ba Bagg es See oeee me Sy 
ES gebttnt wrxSoal x eatin Sos 
ios cola Cqgiie ee ae 

gos ae Be eae @ 3% 3 e 
Ss ie ie SF Leo 
mv N2IM> m9 Lond 

=e + teat tteteebed Os nes 


on é 


oe >- eae >>-oPar- C—we-ww 
Pte fete fatter meas 1h tues ey tat} 


Swe 
ee 


anna 


ee oe ha io ce | 


Sa a 





STATUS 
CH-DOG TIMING ON DRIVE 


STURN 
a 
RESET cent hoe TIME 


; GATHER 
STOP 


rearr-o 
Asda 


rT 
“4 


: 
ae 


RARBBRGA 


td td md CLIC 


piso 


fost CoB 


CT 
OR 


ooso¥2 9S: BIS —#E .HOS CONT 
TMP «CC. RTRN 


Mester 
137 


7 


~~ 


fe 
a ae 
potadia 
++ 
ed « 


Gabe Gbnoe ki lMeuanndimun cana Ran Rema aa aan 


od Od ORG a dl OME Ol OE RE On OY RG ORE ont mG Bd Og a OY Ca eh md Oe ad Cn Bg HG FG Og Od Oa Pd YO) ed BEG Om On Fed HE CEG FY Od Od Od oe HG Od OEE 


i 
) 
~ 


HEADERS 
OF CS1 


S EXCEPT FORMAT 


COMMAND 


if 


BLOCK ADDRESS IN 


COMMAND 
C62 F0 
ASE COMMAND 


OR DESELECT 
8- 
B 


its. 


IVE TYPE 


ty CK IF AD ALL 
pit F 
iste 


WP. 


»P.CMND(RS) ;CHECK IF RELE! 
WAIT Fi 
(RS) 
RKCS2( 
P.C 
T> 


,0.WAIT 
S,P.C 
S2(RS) 
I ISRL 
iH 
<CFMT! 


RS 
P. 
a} 
P 

st 


i hen 


Hananauaey 


me ne ee a ee ee se 






| 





"i 5 
ea : a ee 
a = co 
a eat ah i : 
£ wb g 5 : Bune 8 UE 2 es 2 
Bey < mn 58° Se bee = 8 
2 | Sul 4 —-— = Qa oO 
y £8 oJeusts, Seagte Sey WE Boog 
. i se Seeee4 ows REO! £05 » dotees » & 
o ctr Sn Bhatia! Sa cre Gontu aug 8 =F 5 E 
a eoue S tia ting wO aii out use? ; rae S ee 
o SMpeye Vara en, = poeesee ees a2 6.8 @ =o 
T eect SHS SSam MISS" Syxehy SeCexSae Rosy SoAZue yw ws 
e Sg Cottam gy eetntss SREY ge See ueateeee go” 
& “Siow ceh~ ees Ssang wot -So See he Bods ee Ss 
inn = = ee 5 > Dip . = eo « eB eBeer™® encase 4 emencnce ee ae me 
O8 sot 2 & cove: = B 2 : 25 886 8 
rh o¢ te <= Suen OF & £ e238 & & 
S % te % bee Wee wf Ge GB te Be Oe TS 
~ gy 3. ¢ ior 8 eee a2 sgoe E eee Be 3 E 
B mowmuioa “a. tatr tata pes Bui > : =a a — “2 = 8 
i er Se fic She 2828 wuss Rae goa & 
BepeiGes BSBeed Suust Evstzese Fests SEHES Me BB 


36S 
37S: 


016265 000000 000016 38S: 





000164 000001 13% 
003060 
000007 
003062 
003062 
000006 
000010 
000017 
000016 
000016 
000014 
000000 

76 000001 30% 
000014 
000001 32S 
003042 34S: 
000010 
000016 
000016 
003042 


be] ea eee gee HE! 

ee os SS Ee ee 

oe ee it 
| 


#SPECIAL COMMAND PROCESSING 





Hbnbsdsudadlddaa sa duaaaddduaduadadaduadusuadaganangagnns 


eG OR Be eh OE OG ad On nd Bg Od BG OG Dy Of RH yh Od dh eh Od nd ed red Ce dG dd Cm eh Fd dd a BG ed eg Ce Od Od ed Oe Gd 


DZREN-B = RK611/RKO6 SUBSYSTEM VERIFICATION : 














R= 0 Be Baw Guo fs Qe 


0 0 = P= f= 0 FO pe 


SEES SEE CERECEOMOES 6 


1068S 








000040 003042 
737 051020 


‘177777 


000106 
051006 


177776 


000014 


003064 
000000 
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OZR6NB. CNB #SPECIAL COMMAND PROCESS! 


040000 000016 


NG. 


C.RTRN: 


I0 
MACY11 27(732) 


ieee 
sP) 


(SP)+ 
af SCR, €.cONT 


BoaRRRONT 
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Cpe Ke f grTEnty CLEARED 


SDECRENEN 16 NILISECOND COUNT 
i CHECK DR INTERRUPT AGAIN 


ge YSTEM CLEAR DID NCT CLEAR 
IONS 


bio re 


ACK 


(SP)+ ADJUST ST 
cr JP. PRST(RS) ;CHECK IF NO CHECK MODE 


(SP)+, 


My RESTORE REGISTERS 
T ENABLE SET 


Set AME NORMAL TER TERRINATION 


.SBTTL RTs 10 BINARY cl rine 
: SES RELEASES LES ELE SKE E GES LE KEE SRESE RSLS REELS KSA DES ES SHE KL ESESLE 


© OO Oe Se we we we we we ews we 
wiee|® 


THR RHEE Ohh RALSTON 
By ASRS EME HR ae het ante © 


<ADDRESS OF ASCII STRING>,-(SP) 


BOoRESS OF ERROR RETURN 


: 5 LELLLELLALLSLELELLLLRELLLLALLELEALAL RELA LE RALERALRE REALL AE ELELE 


OCTBIN: MOV 


FREE 


RO, -(SP) 
Ri,-(SP) 


(RO)+, =(SP) 
#0, (SP) 
4g 


#'7, (SP) 
4§ 


et aioe oo OF ASCII STRING 
PICK MTS CHOPCTER 


ieee I IF COMMA 


$RaKE SURE THES. CHARACTER 1S 


; AN OCTAL DIGIT 


NATED 








03-NOV-76 21:43 PACE 230 
sSTRIP THE ASCII JUNK 
SCLEAN PARTIAL FROM STACK 


;ADD THIS DIGIT 


; #2 


5 #4 
; *8 


;LOOP 


JOe 
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OCTAL TO BINARY CONVERSION ROUTINE 


iuauaaie 


OmUNMTiNoOt@ao 
8 Hb OG oH Hd I Oe 


SS5S5S5585 
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2 
z 
cS 
3 


3 

e 

eae ae 
weet By 

bee 


: 
: 
: 
: 
: 
: 
: 


S 

: 

5 

2 
= 
=i & 
ou. & 
Fa 
2 
aE 
= 


SS _OF 


T 
T 


rn i 

SAVE 

;SAVE Ri 

POP STACK INTO Re 


;CLEAN UP PARTIAL FROM STACK 


;REST 


)-1. 


sae, § Se he 


eget 3 By Faas 


setdaieewtacaaceeee 


. SSSSPeteAnecaareeee 


SP) 
SP) 
SP) 
SP) 
(SP 
-SBTTL RANDOM NUMBER GENERATOR 


PSSesr 


SHIOCT: 
; 

; 
3¥CALL: 
3% 

;# 

3% 

;# 
SRAND 


ee ee 
wn 
r 3 


wee BR SRR 

Gok 6 Gis Ba 
= | pee 
oo0do onNnogm ooo 
ae peppenss suucmvosasa 
¥ 





RSS SS SSEREERERSEEERER ERE RR ER ERERERERRRERERE 


DZREN-B 


DE dd dd ed 8 a OG ah Od Od a a) dd ddd EY Od ed dd ad BG OG Od Od ad On dd dd hd Oe 





_ 





DZREN-B = RK611/RKO& SUBSYSTEM VERIFICATION : PART 2 
DZRENB. CNB RANDOM NUMBER GENERATOR ROUTINE 





10764 053162 012501 MOV (SP)+,R1 
i bos164 012609 HOV (SP, RO 
tie felled ec RUM: He ine? 
172 le 12345 
as SBTTL TYPE ROUTINE 
ries ? 
; #ROUTINE TO TYPE ME 
10055 jRTHE ROUTINE WILL Coz NERSAG 
10774 #NOT El: ¢ 
10775 t ENOT SFILL SONTAT 
10276 $NOT SFILLC CONTAI 
10778 SCALL: 
10779 in USING A TRAP INSTRUCTION 
10780 + TYPE  ,MESADR 
pres see ver 
tees jf MESAOR 
10785 = ‘ 
1 001157 STYPE: TSTB § $TPFLG 
tires EUR Bee Be 
10789 ; 30 BR 38 
iBrat Geete SC omme | RY Brat 
. ore 1 000001 001340 CMPB SOB TENY, SENV 
1738 tb 000100 001341 BIy8 SAPTSPOOL , SENVM 
re aca? MOV RS 61S 
17a Brana oe gis:  noRD pee 
10799 136737 000040 001341 62: BITB SAPTCSUP, SENVM 
1080 Ae 2s: ae (RO)+,=(SP) 
: (SP)+ 
i 60S: Mov (SP)+,RO 
10805 38: ADD , (SP) 
fe us 
i 4g: ee ett, (SP) 
10808 CHPB ss SCRLF, (SP) 
1081 BNE S$ 
ioate (SP)+ 
inet8 fe 
1081 BR 28 on 
1081 58: SR STYPEC 
10817 : chee SrILLC, (SP)+ 
1pBi8 MOV 


MACYL1 27(732) 
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3 POP STACK INTO RI 
: ;;POP STACK INTO RO 
;RETURN 


‘ . SROUTINE TO TYPE ASCI? MESSAGE MESCACE MUST TERMINATE WITH AO 


ALINE, FEED. 


T Tene NATE WITH 
PaER Or Lt Co Re AFTER A FILLER CHARACTER. 


NUMBER OF FILCER Che CHERBCTERS REQUIRED. 
CHARACTER TO FILL AF 


Te 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING ( 


i318 THERE A TERMINAL? 
ie HERE IF NO TERMINAL 


iter mane 4 ASCIZ STRING 
GO CHECK F FOR fe CONSOLE 

ae TO APT 

3NO CK FOR CONSOLE 


YE' 


SKIP TY 
T 

AF odd oP 
Hout RETURN Pe 
*BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 
5 ;POP con EQUIV 
>: TYPE A eR AND EF 


BE TYPED ONTO STACK 


T OFF THe STACK 


wewe hens cau SaEA Ee ee aie howe 


CHARACTER COUNT 


Phe a ees. La 


NO GO 
9 eer herd Glee "NEEDED 
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loser OS3342 105366 000001 7$: DECB 1 (SP) {Bors A NULL NEED. NEED 10 BE TYPED? 

{bess Geaas6 aneee 053406 fed STYPEC 110) Hela MALS ee Te OF STRCK 
ies 53254 105337 Deca SCHARCNT j100 NOT COUNT AS A COUNT 

10827 sHORIZONTAL TAB PROCESSOR 

Cg a ae a ce eal 

i 132737 O00007 053452 BIT aZ,SCHARCNT =; BRANCH TF NOT AT 

Re ‘i oe dates 

10835 O05 105777 125536 STYPEC: TSTB  SSTPS. :;WAIT UNTIL PRINTER IS READY 

i ee ioc GR He || ha? tre.gem ny uae 
10840 os34s2 CAB SCHARCNT YEE CLEAR © CHARACTER COUNT 

iB e7b 000012 op0od2 18: CMPB ALF .2(SP) He AGHARACTER_A LINE FEED? 

ie eel Wee sewer f° HISAR STB 

1084 000207 STYPEX: RTE PC " 

1084 

ett 

eat ; ‘iETIL DOUBLE PRECISION MULTIPLY CUBROUTINE 
19853 is Serie a At PRECISION INTEGERS 

ieee tS sOENTER WITH PC, i. DPIM 

a f ht 

i 5% PRODUC RETURNED IN RO-R1-R2-R3 

1086 te 5 RELRALLLLLELLLLLELELALELLE LALA LALLA RELA RELA RA RELA RE LLARA ALLA EE 
1086 A: OPIM: cLR RO ; HI ORDER WORDS 

108 wpa: Oy Bites) sMOVE 33 (DEC) TO COUNTER 

1 ROR =-R 

ties ROR Re ;SHIFT TO ADD 

1 5 H.0PO2 sNO CARRY NO ADD 

1087 RO sAOD_ DOUBLE PRECISION TO OBTAIN NEW PARTIAL 
10878 M.DPO2: BEC asp ; ;DECREMENT COUNTER 

10875 fet = Spoe ;REMOVE THE COUNTER 





, sith: aac Sate Seon acl ach 
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OZR6NB.CNB DOUBLE-PRECISION MULTIPLY SUBROUTINE 








Dae ban De fe De Pe ns ne ne Pe me hans ne > eae Pe Pn 





10876 053514 000207 RTS PC 
108 
l © LHX AKAA KHL KEK REA AKA KAL AL SAL AAA ALAAAARE LAKE LAKE REL AAA LRA LAER ELE 
10880 ASTTL DOUBLE-PRECISION DIVIDE SUBROUTINE 
10881 :% BROUTINE TO PERFORM DOUBLE-PRECISION INTEGER DIVISION 
1088 i abe ALL REGISTERS (RO-RS) 
10884 # ENTER WITH JSR PC,M.OPID 
1088S :% DIVIDEND IN RO-R1-R2-R3 
10886 2% DIVISOR IN RY-RS 
10887 +% REMAI TURNED IN RO-R1 
- : . QUOTIENT RETURNED IN Re-R3 
10830 H © LEKKARSRRLRELELELKLE LLL ELAS EREARELERERALA LALA ARAL A KALA KAEKE 
10891 012746 O00040 hOPID: MOV 840, -(SP) sCOUNTER FOR DIVISION CYCLES 
10832 S104 MOV RY, -(SP) *HI ORDER 
1 10546 V RS’ -(SP) LO ORDER DIVISOR TO THE STACK 
10894 65 NEG 2(SP) FORM NEGATIVE 
1 NEG asP ; VERSION OF THE DIVISOR 
1 SBC 2(SP) 
10897 ADD asP,R1 
1 5500 ADC RO sPERFORM THE INITIAL SUBTRACTION 
1 066600 ADD 2(SP), RO 
10900 103445 BCS N.OPSO IF CARRY THEN OVERFLOW HAS OCCURRED 
10901 005046 CLR -(SP) *THIS IS A LONGER LASTING CARRY BIT 
b30¢ 103 M.DP4O: ROL R3 
1 ROL, R2 
0904 101 ROL Ri 
0905 006100 ROL RO 
0308 005716 TST asP TEST “CARRY INDICATOR” 
41 BEQ M.OP4L *IF_NO “CARRY” THEN ADD ELSE SUBTRACT 
9308 6 CLR asp CLEAR UP FOR NEXT TIME 
DeEeOr ooo002 ADD 2(SP),R1 
10 ADC RO sADD -(DIVISOR) 
1 ADC asP ; 1 SET “CARRY” 
56600 O00004 ADD 4(SP) RO’ ;< 
091 BR M. OPUS 
0914 M.OP41: ADD »Ri 
0316 ADC 3 ADO +(DIVISOR) 
1 ADC asp ; 1 SET “CARRY” 

Bi eee fe ct ae 

1g i TS of tTEST HE UPDATE INDICATOR 
ise) fees feet fe 3, it HRD EB POSS LaLE ene 
1 000006 Bie B35) 2« iN NT 30 
10923 003347 BGT M.OP4O BR IF MORE TO DO 
ita fon 
1 fi RS,RL 
3 Bo 
1 4 ere te : 
1 I M.OP44: ROL R3 | 
10931 062706 O00010 ADD #10,SP sADJUST STACK BY 4 WORDS 
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OZRENB. CNB DOUBLE-PRECISION DIVIDE SUBRU'TINE 


ides Deseee 


10934 053664 062706 O00006 


asse7e 


s 


000002 
054013 
? 4 


(Mae 
iG eesna asco iosas? 
Sees 


Oh OO FO BB 8 bb BO 0 0 0 0 0 hb 0 0 0 bh 0 Fb 0 pe pb Pe 


} 
t 


PART 2 


CLV 


RTS 
N.DPS0: 00 


5S. 
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PC 
#6, SP 
PC 


-SBTTL OOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTIiNE 
[ FRTEP SORE EERO HHURORURSEHRERS Eee nner sueataressusnseseetesens 


tSTHIS ROUT ROUTINE WIL A 32-BIT UNSIGNED BINARY NUMBER T 
tia at AL A oN NUMBER. 
*% #PNTR, -(SP) :3P T WORD OF BINARY R 
% mee PC, as$0B20 HE PeENTER. Bote ane 
+ # RETURN THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
$DB20: SAVREG ; SAVE REGISTERS 
MOV 2(SP).R1 HPYCKuP THe Po POINTER LOW WORD 
MOV #SOCTVL+13. ,RS 5 3POI POINTER 10 hale 
MOV #12. ,R4 :?D0 CHARACTERS 
MOV #1C7°R3 : MASK 
RY RDA ERP gg? 
CLR Ro TEN INGTOR 
1S: MOVB Re, -(RS) + sPUT CHARACTER IN DATA TABLE 
end MOV RO, Re >3GET THIS igi 
DEC RY >:COUNT THIS CHARAC TER 
BG 3$ > 3BR Ma NOT THE LAST IGHT 
Fre fs Hy brat A DONE-AGTU INT R FOR FIRST 
MOV Re, 2¢SP) HASCre UT 1Pou ER Ee 
RESREG 33RE TORE aut GIS 
es ask fF Host, BINARY NUMBER FOR ooo 
. ROR fo 3 We NEXT OCTAL DIGIT 
ROR RO 
ie 
C Re s MASK ALL JUNK 
ADD «Os«é Re t TORE THES CHAR Y 
SOCTVL: BR § 4 ih ata! wae 
-SBTTL. BBuSEE GTH BINARY TO BEC ROUTINE 
5; RRRERREREELEE HEEELESY SRLS ERXSSLYRERPERA RMSE ESSER ER ERE 
THIS ROUTINE WILL CON CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
: NAL (ASCII) NUMBER. THE SIGN OF BINARY NUMBER MUST BE 
a e 
5 
2a MOV #PNTR, -(SP) POINTER TO LOW WORD OF BINARY NUMBER 
fs JSR PC, aagDB20 ve 
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TREN DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
i :# RETURN +: THE FIRST ADDRESS OF ASCIZ 
: 31S ON THE STACK 
10991 
10336 14% 104406 $0820: SAVRES ;;SAVE REGISTERS 
1 4016 O16602 MON’ 2(SP),R2 ;;PICKUP THE DATA POINTER 
10394 912700 OS4174 Moy SSDECYL. RO 33GET ADDRESS OF “SDECVL” STRING 
10995 010065 MOV RO, 2(SP3 ‘PUT ADDRESS OF ASCIZ Ver ENG ON STACK 
109% 12201 MOV (Re)+,R1 PICKUP THE BINARY NUMBER 
1 } MOV a Re 
10998 l o00012 054112 _ ” MOV #10. .45 ::SET UP TO DO 10 CONVERSIONS 
10999 gie704 054124 - > MOV SSTNPUR, RY :sADDRESS OF TEN POWER 
11900 bers 054126 - MOV SSTNPURSE, aE 
tides eC ST a Tey SEB TRACT TEN POWER 
11003 Beunes boseoe 7 eS) 3 ‘ 
11004 054062 161502 Sug (RS),R2 
11005 054064 BLT 3$ :BR IF TEN POWER TO LARGE 
i 054065 Inc R3 #600, 1 TO PARTIAL 
tinge peNa7s Beedol 3S: ADD fhu)+,RI StRESTORE SUBTRACTED VALUE 
11009 054074 ADC R2 
He Se Bee a es 1 709 Pu 
tiie ite og0cso § S st eee pts fo OReT TAL to ASCII 
| 11B1S Gexioe SP8so8 Rove | RaCLRG)+ NE iT 
11014 pe4119 005327 DEC (PE) >: DONE? 
11015 OS411 4§: .WORD 0 
11016 954114 001357 BNE 1$ ;sBRIF No 
1101 pe¥116 1 CLRBs« CRO) + >: TERMINATOR 
| {ois Sesise Oooeu7 Me” pC $5 Feplone REGISTERS 
11066 Cees 145009 STNPUR: i000 3 ea 
| ti0s2 GesIS6 160800 T0400 1.0608 
| HOS GA Olezes ers Ss ol 
| Hee Geese Gite ie pe 
| 110297 ates eedty 17 a 
| 11028 Patho 03240 103240 331.005 
| it 1% 1 1 
11030 Oey 23420 331.0E04 
| figae GeMie4 bbl O50 31.003 
| ee 0541 0 “"t 
it i uy . 3;1.0€02 
| qi ied 12 31.060! 
Pas 1 pooans 0 
| 11038 OeH170 1 1 ;31.0€00 
11533 PeataG recat SDECVL: Coke. 12. RESERVE STORAGE FOR ASCIZ STRING 
11M} -SBTTL TYPE NUMERICAL aScIz STRING SUPPRESS LEADING ZEROS 
| 1 1042 g¢ RELERERERSESSREHEEELLL ES SERRE T RES ERLE BERS SHREERERREEKREERARSBSER 
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CNB TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 





11044 STS naeeRS, USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
11 #CALL 
Lib? :* Hoy NUMER, (SP) s;FIRST ADDRESS OF ASCIZ STRING 
Hs | | 
11051 OS4210 010045 SSUPRS: MOV RO, -(SP) :;SAVE RO 
11052 OS542l2 016600 900004 MOV 4($P) RO ::PICKUP THE POINTER 
11053 O54e16 105719 1$ TSTB. ss (RD) +? TERMINATEOR? 
11054 dsveed 0014 BEQ 2s ::BR IF YES 
He Bee ki ome gee fers yee HT 
11057 beYe20 2s: DEC RO >:BACKUP BY "1" 
ll 1 054240 MOV RO, 55 aAVE FOR T 
Lites pauses Apo 38 TORO ms H ieee Tee HERE 
11064 beveve O1eb00 5 MOV (SP)+, * RESTORE RO 
110b¢ 012616 Hoy {SP)4, (SP) ;}RESTORE THE STACK 
11068 steals c wpe .SBTTL BINARY TO OCTAL (ASCII) AAD TYPE 
11066 ; LLFSSSSFLALEFAAERLAALLLASLATRAREAALALELSELELESRRALAEELSLSSLEE 
11067 ita ROUTINE, IS USED TO. CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
11069 38 TYPOS~--ENTER MERE 10 0 SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
1107 1# ; ; NUMBER TYPED 
11072 + wy so > CALL FoR T SE EOUT 
| 41073 % .BYTE N ::Ns1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
11074 x “BYTE MM ::M=1 OR O 
11075 # 33 1=TYPE LEADING ZEROS 
! 107% ii ::0=SUPPRESS LEADING ZEROS 
| 11578 | j #STYPON--~-ENTER HERE TO TYPE OUT WITH a SAME PARAMETERS AS THE LAST 
; 11080 NCL: 7 
| 31081 * MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
1108@ i TYPON CALL FOR TYPEOUT 
11084 :#STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
11 -igamsen MOV NUM, -(SP) ;NUMBER TO BE TYPED 
| Lider 3H TYPOC : tSCALL FOR TYPEOUT 
| 11089 OS42S50 017646 STYPOS: MOV, 9(SP},-(5P) 5 sPICKUP_ THE 
| {ibar ti MOVE tSB ye’ SONDbE +s HIRUreeR OF BIG se Tt Pe 
HBS rf 2 he ba 
| 11094 11 STYPOC: 4 I 33 FILL SWITCH 
He Oe Ie ee BS Oe 
11037 O15 ” MOV R3,~(3P) font 
‘i i MOV RY, ~ (SP) ;3SAVE RY 
| 1093 OS4322 O10SH6 MOV RS, -(SP) > ;SAVE RS 
| 3 
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DZRENB. CMB BINARY TO OCTAL (ASCII) AND TYPE 
11100 c i 704 os4475 MOVB  S$OMODE+1,R4 ;GET THE NUMBER OF DIGITS TO TYPE 
11101 NEG RY 
11102 3 000008 ADD #6, 84 ; SUBTRACT IT FOR MAX. ALLOWED 
11103 110437 054474 MOV R4’ SOMODE ;;5AVE IT FOR 
11104 peuaas ti 054473 MOV SOFILL,R4Y *GET THE ZERO FILL SWITCH 
11105 beusu6 1 000012 MOV 1e(SP),RS : PTOKUP THE INPUT NUMBER 
11106 CLR R CLEAR THE OUTPUT WORD 
it is 105 1$: ROL Re ; ;ROTATE tse INTO “C™ 
11103 1 2s: ROL RS tT FORM THIS DIGIT 
11110 O54 1 ROL RS 
Hi Begs bie Eas 
111] Sar 006193 38: ROL R32’ 3;GET LSB OF THIS, DIGIT 
11114 37e 1 OS4474 DECB SOMODE TYPE THIS DIGIT? 
11115 054376 100016 BR IF NO 
11116 a ratte 177770 BIC #177770,R3 s3GT RID OF JUNK 
11118 TS ;;SUPPRESS THIS 0? 
11113 OS441 1403 Q S$ 7:BR IF YES 
lll 1 4S: NC RY >:DON’T SUPPRESS ANYMORE 0’S 
lllel 14 000060 1S #'0,R3 *:MAKE THIS DIGIT ASCII 
llle2 os4420 052703 p00040 cS: BIS 8’ 'R3 33 ASCII IF NOT ALREADY 
11123 ens) : oS4470 HOVE R388 >:SAVE FOR TEIN og 
ES ae 18399 pease 7S: DE SOCNT ;;COUNT BY 1 
11186 OS4440 7 BGT 2s *:BR IF MORE TO DO 
llle7 OS444e2 T 65 $38R IF DONE 
lllep osyq44 NC RY >: INSURE LAST DIGIT ISN’T A BLANK 
11129 bev 000744 BR 2s 260 DO THE LAST DIGIT 
11130 012605 6S: MOV (SP)+,R5 festa fs 
11131 O54452 012604 MOV (SP)+°R4 
Hix pues Olebos MOV (SP)+°R3 srREST one f3 
11] 16665 O00002 000004 MOV 2(SP),4(SP) STACK FOR RETURNING 
His 1261 i (SP)+’ (SP) ecru 
1i1 Dee 8S: ST FOR DIGIT 
| i 054471 O00 ‘Evie ao FOR TYPE. ROUT 
11133 Bee oponcD Silt: “Be ‘art o ERO F anata BtGITe TO TYPE 
isi -SBTTL CONVERT BINARY TO soreel™ AND TYPE Hee ROUTINE 
itis 8 SKELESREEREKEAEREARE KASSEL ULAR RSEREREEESE SERRE 
11144 SATHIS ROUTINE ROUT re a USED TO CHANGE A 16-BIT BINARY NUMBER TO. A S-DIGIT 
Bie :SSTGIED DECIMAL (ASCII) MEGER AN. TYPE 11. DEFENDING ON MMETHER, THE 
| ne ape Fh OF THE NUMBER. LEADING WILL ALWAYS BE 
111 : 
11150 te NUM, -(SP) ;;PUT BINARY NUMBER ON THE STACK 
HISL * 360 TO ROUTINE 
11153 os544 STYPDS: 
| 11154 pee 910046 MOV RO, -($P) 3;PUSH RO ON STACK 
' 
j 
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° RONVERT YT ef 





DZR6NB. CNB 0 DECIMAL AND TYPE ROUTINE 

lll 1 MUV ,-(SP) :;PUSH R TACK 

11138 naaed sh MOV RE ~(86} >? PUSH RS oN TACK 

11128 Deets Gtesue NOV Rsboteeocsp) SE Ferenc StTaeN AND SIGN 
11173 peueig ht BESSSH MOV 320200, 56 tae ae NBT meee 

11416} 054520 100004 BPL is 3 3BR IF INPUT wis roo ioe 
1118 peyesq POStee 000901 VB RP, (SP) 33! T Ret NUMBER NEG. 
iige 8 012703 y712 mm Seem Be ae UR 
11165 Se ieag li Baaoas " nove . , (Ra3+ s3ET “ive FIRST CHARACTER TO A BLANK 
11168 ae Oie00] 054702 : MOV SOTBL (RO) , RI Ce THE EORSTANT 

1116 1601 3S: SUB 1,R5 *:FORM THIS BCD DIGIT 

11170 ooe402 BLT 4§ ::BR IF DONE 

11471 o0s202 Ine Re :: INCREASE THE BCD DIGIT BY ! 
11178 ates 4§ ADD 1,R5 ;;ADD BACK THE CONSTANT 

11174 OS4564 TST Re *:CHECK IF BCD DIGIT=0 

11175 OSH5b6 BNE S$ FALL THROUGH if : 

11176 10571 S (SP) STILL DOING LEADING 0S? 

ie, tewea tt ss; fee (op) SER IF Yes 

11138 pedene iene ° Bene é? TRF NO 

11180 054600 00000, 177777 MOVB 1(SP) -1(R3) is YES--GET THE SIGN : 

He Eee ie ee Ry hems we 
111 TST (RO)+ >:JUST I 

111g ees et 000010 CMP RO, #10 + aUP cK THE T NDEX 

11186 002746 BLT 2s He vy THE NEXT DIGIT 

11187 BGT 8$ He IT 

11188 MOV RS,R2 33GET LSD 

1g 1057: as T3178 (gprs FEDS THe ESD THE ETRST NON-ZERO? 
11191 hata 108s 2 °:BR IF NO 

11S Bes Hes 177777 17777 4. = HOV. =4. SP), BCR) oe Me SIGN FOR TYPING 
iis bt Ghee (83) Rs + Bop ST NTO RS 

1113s O1eb03 MOV (3P +R 3 3POP STACK NTO R3 

iis wey Hoy (p)3°Ri He aTAc NTO R1 

11138 012600 ‘ HOV (5P)+'RO *:POP STACK INTO RO : 

11266 Giceee oo00004 MOV 2(SP),4(SP) Abdus THe state 

11201 12616 MOV (SP)+) (SP) 

il RT ;;RETURN TO USER 

il 144 100.” 

Hee Geil Sak wax: iy 

He -SBITL E HANDLER ROUTINE 

llel $8 ELEEKESRAEKRRKER KEKE LEER LES ERE RE EERE EP ERE RES REE DKS PERS EHR AREES 
11211 THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 





~ 
~- 
rm 
bas 


00 0 bpp pe pe 
furururury 
0 pape 
NOU 


Sots 


Bt PY ho hs Pn Po Bo pm 


ty 


2b Bo fo fo Pwo Pe he pt f= Pe Bue pe 


PERSE Noo BOR 


UR EHR St eek 


Bt Be B= Bs Bo Boe bn an Bs fas Pe f= fee hoe = fe Bae be fae ht B= fo = Pe Bs B= Bs Dae Pe Be G2 he he hs hb he Be fe fee 8 bh he 
Bene Gt fe bm Bee bb Rt Fs 0 Fs Be er Bn Bt B98 Fs at ne Bt bm Pre Benn Bens Puss Piss Ba Pw 


RRR TERE Bae UNIT 


0 
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; #SAVE i ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
AND GO TO TYPERR ON ERROR 





°% ON 
jxTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
eet tNHTBST RROR TYPEOUTS 
:#5W10=1 BELL ON 
s #3408 LOOP ON ERROR 
: N ; ;ERRORSEMT AND NeERROR ITEM NUMBER 
54 RROR: 
OSH 10S237 001103 7§: INCB = SERFLG 3;SET THE FLAG 
726 O01 BEO 7§ ::DON’T LET THE FLAG GO TO ZERO 
730 901108 124204 MOV STSTNM, DISPLAY *:DISPLAY TEST NUMBER AND ERROR FLAG 
7% 124174 BIT #8110, aSWR HH ON ? 
me 108400 1319 TYPE SE :tRTNG_ BEL 
a ee 
00111 1S: INC R TL 3: COUNT NUMBER OF ERRORS 
te O11 Bi oie HOV sent RRPC 3:GET ADORESS OF ERROR INSTRUCTION 
en ie 
eae 1 24122 001114 MOVB 5g SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
054776 b50006 124134 BIT #81713, aSWR SKIP TYPEOUT IF SET 
1004 20$ ::SKIP TYPEOUTS 
0047327 O41222 JSR PC. TYPERR *:G0 TO USER ERROR ROUTINE 
5501 104400 001315 san Type ,SCRLF 
000001 001340 *  (MPB =o BAPTENV,SENV —s; sRUNNING IN APT MODE 
peense hates BNE 23 R NO, SKIP ADT ERROR REPORT 
055026 U3 001114 OSSO40 MOVB sit 215 ::SEt ITEM NUMBER AS ERROR NUMBER 
peau on JSR FC, TY4 ;;REPORT FATAL ERROR TO APT 
05504 : “BYTE 
haat 225: BR os ;;APT ERROR LOOP 
055044 005777 124070 os: Ist SSH ssHALT ON ERROR 
3 HALT >: HALT ! 
BIT #81709, aSuR 3 3LOOP ON SWITCH SET? 
Roe ia }FEUDEE BE TURN FOR LOOPING 
Q ' :3BR IF NONE 
3550 a MOV SCAPE, (SP) + Ploae TURN ADDRESS FOR ESCAPE 
SE 15 022737 02354 oooo42 ~~ CMP SSENDAD,3842  ;;ACT-11 AUTO-ACCEPT? 
055110 901001 BNE 6S >;BRANCH IF NO 
pss iG 6s HALT s;YES 
055114 oo0002 ° RTI ; ;RETURN 


T 
-SBTTL TTY INPUT ROUTINE 


oe  EFESSESSRRL SEE SE SESE GE ERRELERERSELKSL LR KSELHRRA SRE RRS S ELE S ESE 
"ENABL LSB 


-DSABL LSB 
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Bonne cre PY neu ROUTINE : 


3 EEA SEE 9E9E E696  EE J  HE J  S E EEE 
sATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


uuatet 


SMSWR: <ASCIZ ¢15><12>/SWR = / 
eASCIZ / NEW = 7 


ek a: + NORACTERLTSCON THE STBEK Oe TTY 
lers 3% > WITH ARTY BIT oe D OFF 
1275 ‘ 

: MOV (SP), -(SP) es THE PC 
15% fey 4(SP},2(SP) EE Pe PS 
1578 ire astKs ty FOR 
183 MOVB TKB,4(SP) a ) wee TER 
1281 BIC $1C(177>.4(SP) $:GET RID OF JUNK IF ANY 
128 ch 4(SP), #23 2:15 IT A CONTROL-5? 
1284 TSTB = ASTKS >;WAIT FOR A CHARACTER 
1285 BPL $s LOOP UNTIL TS THERE 
1287 ee eee (ep) TIME TP’ Scant ASCII 
1 Bis ob }¢ bel 2315S ITA Cont ROL 8? 
1288 BNE 2 $16 NOT DISCARD IT 
teat erp ee iTS tr UPPER -_ 
128s CNP 4(SP), #175 31S IT A SPECIAL CHAR? 

BGT 4§ $8 IF YES 
as BIC 840, 4(SP) 33 IT UPPER CASE 
, T ss K TO USER 

ss sASCIZ /tU/<15><12>  33CONTROL “LU” 
238 -ASCIZ 74G67<15><12 s;CONTROL “G” 
a 





SARnUER 
: 
3 
: 
S 
é 
a 


NOU EWU O 


;SET VECTOR FOR POWER UP 
;HANG UP 


;WAIT LOOP FOR TTY TO COME UP 

SET VECTOR FOR POWER 

RE-ESTABLISH POWER TRAP PRIORITIES 
et EO STACK 

Al 


; 

§ 

TYPE * 

; HE UNI 

SRESTART THE CURRENT TEST 


Ps ann fe GO bo bh 


SRSESS 


WWWWWW WWW) 


Oe bn be be bn Gn Pe Ba se ae ee Hes ae Pees ae Pee ee ne Hae ad Pee nw ne Ha Pe enw Pens ae ed Pen Pd ns Gn sd Gd ee me ee me ns as Hd Has nn Pao Hd ns Ps Pas Gas nd fs ss Gene one no 


Bas as Bs feat Fan Bae Bs Bat hae Bs fh Bt ee beat Be fe hed fee Bae fo fo Be Pa Dw Bs fs fa fhe 
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SPWRCT: .WORD. O 
eSe? BURNSG: eASCIZ ¢15><¢12>/POWER FAILED/<15>< 12) 
eee Bh oom Bee 
042105 005015 000 
0SS402 


.EVEN 


O=9 ban Fe fh pe 


cme | 


5 9 9 9 9 ES 
OPE ON ERROR ROUTINE 


esc 





1 — 
; 2 et A MO 5 LALLA LADLE 
Storel: 1518 SERFLG ie atrna OCCURRED 
err #B81T9, aSWR SEE IF ug? ON ERROR DESIRED 
1 MOV SLPERR, (SP) Er eatin LOOP ADDRESS ON STACK 
1 6S: RTI 
1 
1344 
ie .SBTTL SCOPE HANDLER ROUTINE 
a4 s SRRRLEPESLEL ARLHS “AAR 
1 is putts Ga NG OF SUBTEST S. uy TWILL INCREMENT Pe 
333 + SOND eR rune sae 
351 ate SAITCH teat THIS 
eat tei tal T ITERATIONS 
:#5W09=1 LOOP ON ERROR 
3#CALL 
3% SCOPE 3; SCOPE=IOT 


eb SSCOPE: ; 
005737 001304 TST TI sex TION NUMBER 
= BH com some as: RE ete oom le th eth GEC OF Sum BIT 14 
001101 SW14=1 
janeessTent OF om THE XOR eth 


000416 on ON THE “XOR® TESTER CHANGE 
TION TO A “NOP” (NOP=240) 
Ss Ld THE ERROR VECTOR 


— 


ee ee ae en ee be es he be se Be ae Ped ee Hae Pe Hae Be Peas Pe Pe 2 nw nn Gene me mn ne Pe fe Pe Pe Pe ne ne enn ne ne mw ne ne uw Ps ee Pe Bw One 


Hs Bb 02 he 0 be hh he Bs Be Hh Pe 0 hh = hs Ft bo Be Pe hb he 9 fw 2 Pe 


SSISA TINS SSSR ETERS OBS 





is THIS 
01 MOV C,-(SP) + CAVE 
tee 000004 HOV c F fe REOUT 
13637 00084 MOV ESP )¢CSBERRVEC ce THE ay VECTOR 
| ss: CHP ie {SP} Bal RA TINE OUT 
(4 000004 oY 5 
6$:;88888END OF 2 THE eee 2 festeneeaes 
001103 es: Bis 77S ON F. 
Ta 001115 001103 on SERFLG $s MAX, Fors ron as FOR THIS TEST OCCURRED? 
001000 123412 Bit #81709, aSWR + ESOP ON ERROR? 








DZREN-B - weenat iy 
OZRENB. CNB Sc 





Gs B= fh 2 fo 


eee eRReEReS 





Oesele 


ee 
ied 


sree yer 
= 


RE 


SeSRReGR 


410 05571 
41 1 tata 
4 101 
4] 4 
414 1 
ue 
41 
41 
4 

1 055754 

t YA: ‘ 


yin 


SHVompninin 
~ 





ee ae ae ae eh ee ee an ee Bae Be ee ae ee ee Pw ne ne Ps Pa ae Ho ee ne Ps ae me me Pens Pe me Ps Dae es ee as fee ne Prue Ps -s Pe ne Pe Pe Paw ps we Po Pe 


ba B be fe Bs bs bt Be be fe ht at he ht Fn hs a se fm = Bo pe Qe 3 Bs fe 8 hn he fet bs oe hs few Ge Pe bm a Bes fe fe fee 


= 
R 
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TORO CER ROUTINE 
BEQ 4§ ;;BR_IF NO 
001110 001106 7S: GV SLPERR,SLPAOR j SET’ LOOP ADDRESS TO LAST SCOPE 
01 us: cLas eer ZERO. THE ERROR FLAG 
bey tReet EER THE NUNGER OF ITERATIONS TO MAKE 
BR 1s PFECGAPE TO THE NEXT TEST 


004000 123360 38: BIT #BIT11,0SWR ;; INHIBIT ITERATIONS? 


BNE tar IF YE 
ote oo1i04 orp $1 ines, sioM ince THE AUMGER OF {ERATIONS MADE 
MO 


REQUIRED 


5 BR I TERATION 
popne4 001104 1S: #1,SICNT 3 INIT TION COUNTER 
001304 MOV SMXCNT, STIMES 33SE OF I IONS TO DO 


0011 SSVLAD: INC TNM HH TEST 

Obi ae 001324 ince TNM, STESTN Hee Test NUMBER TR APT MAILBOX 
0011 He SCOPE LOOP ADDRESS 

cp ts 


PIE ESCAPE FROM ERROR ADDRESS 


900001 001115 MOVB #1, SERMAX ONLY ALLOW ONE(1) ERROR ON NEXT TEST 


Biike TSS sven: SY ERISA PS Ti 


000001 
000001 OS6le6 SATY3: 
00000 





eeP] 
SMXCNT: " ?:MAX, NUMBER OF ITERATIONS 
.SBTTL APT COMMUNICATIONS ROUTINE 


JEHBHHHBHHHEHHEHEHHHEHHE HEHEHE HEHEHE 
#1,SFFLG 3310 REPORT FATAL ERROR 


* StH 
056130 $Arvi: 
#1, SMFLG 3310 TYPE A ME 


NOVB 
BR ." 
1 056130 satya: NOVB #1, SFFLG ;;TO ONLY REPORT FATAL ERROR 
* MoV ,~(SP) ;;PUSH RO ON STACK 
mere seg + CUBULD TYPE A MESSAGE? 
BEQ sit hot: BR 
CMPB © SAPTENV,SENV =; ;OPERATING UNDER APT? 
*3IF NOT: : 
BIT SAPTSPOOL , SENVM js SHOUL "SPOOL MESSAGES? 
MOV 345°), f0 :3GET NESS 3 
Tot ib i sSEE rb W LAST XMISSION? 
99 : 
SMSGAD : N MAILBOX 
fe TAR NOTES OPEL 
»RO »SUB START OF ME 
i FO we i Resende LNGTH ‘TN, WORDS 
HOV By, srs TYPE tte APT TO TAKE MSG. 
BRT tr a iim ue 
MOV (SP) 33 ON 
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cs: 
10$: STB  SFFLG 
a Ay 
BEQ 1 
11S: Ist SMSGTYPE 
MOV d4(SP), SFATAL 
ADD 2. 4(SP) 
INC SNSGTYPE 
les: ites ete 
che = SHELG 
MOV (SP)+,R1 
MOV (SP)+;RO 
RTS PC 
ete: Te OO 
SFFLG: ‘BITE 0 
APTSIZE=z 
APTENV=001 
APTSPOOL=1 


APT 
~SBTTL ROUTINE TO SIZE MEMORY 
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5 SHOULD REPORT FATAL ERROR? 
iif NG UNDER APT? 


: FINISHED LAST MESSAGE? 
ss syed Last . 
;;GET ERROR: # RETURN 

ss TELL Pre TAKE ERRORS 
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- T oe ait BEFORE THE CALL 
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i INED BY ROUTINE 
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64S: MOV asp) QUERRVECHE 53 IN RERRVECHE 
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3 tes "Eight pee AND EIGHT “PDR. ’S” 
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11607 

11608 ; ROUTINE 
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SCOPE! ;;CALL=SCOPER  TRAP+10(104410) INTERNAL LOOP ON ERROR ROUTINE 
042524 TSTMSG: .ASCIZ / TEST / 
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“FORMAT ERROR/ 
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/CYLINDER OVERFLOW/ 
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